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SRAARAERAAAEAAAETE ERATE AAERAAAAAAAAARAAEAEAAAAAAAAAERAAAAEAAAAEAREAAATEREAEEe 


Sth tg! (c) 1978, 1980, 1982, 1984 B 
DIGIT My ee CORPORATION, MAYNARD. MASSACHUSETTS. 


phenge exit path in reed error such that condition code is 
s correctly on return to port driver. 


v03-056 4 aoes hael I. Rosenblum ol aa 
described fn OAR 915 that points out a condit 
Unere. he DMF hardware XON/XOFF handling get's out of synch 
With the terminal driver's reconing. 


v03-055 MIRO45S5 MICHAEL I. ROSENBLUM 20-JUN-1984 


4 : 
. 3 
e sd 
Sit t 
8 ;* t 
3 m + ALL RIGHTS R * 
P ee 
11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE SED AND COPIED * 
13 z* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ob LGENSE AND WITH THE * 
13 :* INCLUSION OF THE Above COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
4 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERW wise OnADE AVAILABLE TO ANY * 
06 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HERESY * 
99 1 i TRANSFERRED. ® 
P ® 
0900 18 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 y :* CORPORATION. * 
3 ® 
9000 ; 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 ? : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 ® 
0000 5 3* 
B68 § FRAAAAREAARER AERA AEE AREA EAA AAAA REAR ARAARARAAARERAAAAREAARAAAAREEAAAeAA eee 
$009 8 ++ 
0000 9; 
44 9: 3 FACILITY: 
9000 gi ; VAX/VMS TERMINAL DRIVER 
0900 4 i : ABSTRACT: 
9000 g: : THIS MODULE CONTAINS ROUTINES COMMON TO ALL TERMINAL DRIVER FUNCTIONS. 
0900 g : AUTHOR: 
909 40 ; R.HEINEN 11-AUG-1976 
09 4g : Revision history: 
44 : 
09 45 ; v04-001 MIR1100 Michael I. Rosenblum 7-Sep-1984 
0 $$ 3 Add code to catch fired hangup ast's. 
48 : v03-057 JLV0394 Jake VanNoy 13-AUG-1984 
0: 
13 
ZL ; 
| 


Soooooooooo 
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$ 
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Add check to catch Late rtimout ast 
make detach cause a hangup if the tite is set as such. 


V03-054 RKS0054 a K SPITZ 10-APR=-1984 
show ihysicel s terminal UCB redirected -~ n ones jiated 
with log UCB. Remove charac eristic $409 c¢ on ccbted 
as it is done in the connect startio 1/0 oct on code. 


v03-053 BiRosve Michael I. Rosenblum 04-Apr-1984 
Return the offset when a readverify rqad Sovatagsee 
Due to timeout. lorateste a Read verify read 
it is restarted by another io also return the ++ A 


offset. 
v03-052 RIROSTO Michael I. Rosenblum 20-Mar-1984 
Remove local definition of TTYSV_ST_CTSLOW. 
v03-051 RKS0051 RICK SPITZ 15-MAR-1984 


Cleanup modem disconnect routines and 
add login timeout logic to modem processing. 
Cleanup routine headers. 


v03-050 RKS0050 RICK SPITZ 05-MAR-1984 
Enhance virtual terminal timeout code to delete 
a virtual terminal when specified time period expires. 


v03-048 hg Michael Rosenblum 09-Feb-1984 
x Ss. 
Clear breakthru classes on Last deassign. 
Maintnance functions shold not always return abort. 
Add entry point to Transition to not check modem in 
Devdepend so that the modem can be shutdown when 
modem is turned off. 


V03-047 MHBO0100 Mark H. Bramhall 1-F eb-1984 
Add the setting/resetting of DEVSM_ DET in DEVCHAR2 during 
LUCB unlinks/(re-) Links. 


V03-046 MIRO200 Michael I. Rosenblum 15-Oct-1983 
make calls to HESE ORK call TTYS$SYNCH to allow the terminal 
driver to provide © the RTINOU routine to. 8 methods. 

Change input IPL to the RT routine to allow the 
class driver to provide at S own synchronization. 


V03-045 MIRO082 Michael I. Rosenblum 19-Aug-1983 
Add argument in RO” to the PORT DISCONNECT routine. 


V03-044 MIR1080 Michael I. Rosenblum 11-Aug-1983 
remove restriction that modem state table routines must 
be forward references. 


v03-043 M1RO080 Michael 1. Rosenblum 28-Jul-1983 
Reposition the routines in the module. 


V03-042 M1R0070 hael I. Rosenblum 13-Jul-1983 
Re-write the ih that handles modem timers to allow 


SOOO OOOOSOOOOCSoOoOOoOO 
SOoOSOSCoSCSCSOSOSOSOSOSOSOOOOSOSOSOSOSOSOSOSOOOOOSCSoO 


OooOoCooooooooooooooooooooooo 


fe ae ae nee ew we) ww ww lol aolo lolol ol ol ololololololola lo lola! 


vw 
PAO OD WO NE WWI 9 OOD NAME WIN $$ OOO NA UE WI SO OD NAMES WIN OOONAUES WOW 
PETE TEESE ICOSOOIO OSE IE TEE OSTEO Ieee eee Ie Ieee eee Tee eee rererererererereerererererrerere ee 
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aD oo be te a A nt ts 
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any number of Lines of modem control per controler 
Make the UNLINK routine turn around reads with t aore 
rather than requeueing them. 
change Setup FF to not setup the ucb if there are 
— BS {gned 

seuee transition when called from the ports to turn 

® gett to INIT with channels assigned to a SHUTDOWN. 
be will blow the processes away when a power fail 

pens. 


V03-041 M1RO0S1 Michael I. Rosenblum 23-Jun-1983 
— TTYSNOTIFY service. Cause break on NON-autobaud terminals 
to login. Remove unnecessary jsb's and replace with bsbw's. 


v03-040 RKS0040 RICK SPITZ 8-JUN-1983 
ope fur too FOR CLONING DETACHED TERMINAL UCB AND Logic 
TO LINK AND UNLINK LOGICAL AND PHYSICAL ney os 
RESTRUCTURE CANCEL 170 COD DE TO BE MORE * wobU 
MOVE UCBSV_TT_HANGUP INTO LUCB (EXCEPT FOR” CANCEL RESET SPECIAL CASE 


REMOVE STOP BROADCASTS CODE SINCE THEY ARE NOW BREAKTHRU WRITES 


V03-039 MIRO0SO Michael I. Rosenblum 11-May-1983 
Remove code shat specail cases broadcasts. 
Remove TTYSSTOP 


v03-038 ob pend Michael I. Rosenblum 29-Apr-1983 
Add code to allow autobaud to work with parity, sutapar tty 
for even parity checking. Change autobaud code t 
require a readable <CR> before invoking LOGINOUT. 


SOOO OOCOOOOOOSOOOSOSOOSOOOOOOOOOOOOOOOOOOOOOO 


SOOO SOSOOOSOSOSOSOSOSOSOSOOSOSOSOSOSOSOSOSoOS 


DOOCOCOCOSOOSOOSOSOSOOSOSOSOOSOSOSOSOSOOOSOOOOOOOSOOOOOOSOOoOO 


COOOCCOSOCOSOSOSOSSSOOSOOCOOSCSOOSOOCOOOCOOOOOOOOOOOOOOOOO 


V03-037 MIROO32 Michael I. Rosenblum 05-Apr-1983 
Change control character echoing representation. 

V03-036 M1RO031 Michael I. Rosenblum 01-Apr-1983 
add code to disable the transmiting of characters with 
parity errors to the user. 

v03-035 RKS0035 RICK SPITZ 14-MAR-1983 

ADD SUPPORT FOR LOGICAL UCB 
V03-034 MIR8026 Michael I. Rosenblum 14-Mar-1983 


Fix problem with” initial string offsets and origional 
cursor position 


V03-033 MIRO026 Michael I. Rosenblum 01-Mar-1983 
Clear out the size of the recall buffer when creating 
the typeahead buffer. 


V03-032 MIROO024 Michael I. Rosenblum 28-Jan-1983 
Change code to reflect the new read buffer. 
v03-031 MIROO22 Michael I. Rosenblum 18-Jan-1983 


Move common code even ort drivers into class jacket routines. 
Change reference 0 case. ERTCNT to UCB$W_TT_UNITBIT to 
allow more mainta a! ty. 


MOOD NIA NE WIN OOD NAN WIN OOD NIA UE WN § 0 OD NAME WIN | O OO NOUS WH" OOOO 
PETE TETETETCTSOCOSCTOOSIC ICIS TE Ieee Ieee Ieee Ieee rere rere rererererere rere rerere re riri rere 
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v03-030 pincer? Michael I. Rosenblum 05-Jan-1983 


Move Somnen owerfail code into this meee and change 
the A Mitts Me ne to use this common code. Add 

TTYSPOWERACTION routine as a class survice fo the port 

drivers thst ton setup everything for postive action 
when a powerfail occurs. 


V03-029 M1ROO15 Michael I. Rosenblum 20-Dec-1982 
Change fork dispatching code to use state dispatch 


Class onsry.y vec 
SE ORK = Schedules ° fork interupt for the 


t drive 
CLASS -piscoweeh, - Per teras gieeny then delivers 
DCL*s hangup ast. 


WeuM 


Add class sucvice : 
M_DIS = Forces modem shutdown transision 
Make CLASS DISCORNEDS fork to FIPL 

Add class Jacket routines for all port functions. 


V03-028 MIROO14 Michael I. Rosenblum pesbee= 1902 
Add CLASS_XON med CLASS _XOFF to remove some of t 
code duplicated in all of the port drivers. 


SCoOooooooooo 


DOooooooococoo 
OoSooooco 
SDOOOoOoOOCOoOoOoOoOoooooSoSoOo 


COOOCOOSOSOSOSOSSOSSOSOSCSOSOOOSOOOOOOOOOOOOSOSOO 


WOOO 000000000000 000900000000 III 


V03-027 MIROO13 Michael I. Rosenblum 16-Dec-1982 
Fix up refferences to new ucb structure 
V03-026 MIROO11 Michael I. Rosenblum 18-Nov-1982 


Remove HOLDSCREEN code. 
snares RESTARTIO to use new EDITREAD state and the 
new MULTIECHO functionality. 


Vu3-025 MIROO10 Michael I Rosenblum 99-Nov-1982 
loved the count of characters in the typeahead buffer 
from the UCB into the typeahead structure. 


v03-024 RKS0024 RICK SPITZ 8-NOV-1982 
PREVENT PURGE TYPEAHEAD ROUTINE FROM DESTROYING CONTENTS 
OF R4& (ADDRESS OF TYPEAHAED STRUCTURE) 


v03-023 RKS0023 RICK SPITZ 04-0CT-1982 


AMO OODNAUE WIN 9 ODNOU EW O OONO 


CoOooowuno 


SOOOOSCSoS 
BONA MEW OOD NAME WII — OOONOAUE WN 


OoOOooooooooo 


CORRECT ATTENTION ROUTINE TO CALL START OUTPUT 
AFTER CALLING RESUME FOR BROADCAST. THIS FIXES A PROBLEM 
WITH DMF CONTROLLERS HANGING SHUTDOWN IN MWAIT 
v03-022 RKS RICK SPITZ 23-SEP-1982 
ABORT PORT T IN MODEM HANGUP SERVICE ROU ie 
THIS PREVENTS A TERMINAL IN CONTROL - STATE F 
KEEPING A ee gi UNNING LOGINOUT AROUND UNT i 
NE ONTROL Q@ IS ISSUED. 
SHUTDOWN 
R INTERRUPT 
Y OF ANY 
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v03-021 cones 
; Added S$PRDEF 
a: 


SEP- 
SEP= 


198e $5:55:13 


Kathleen D. Mors 


AX/VMS Macro V04-00 
TTORVR.SRCITTYSUB.MAR; 2 


e 28-Jun-1982 


eee 


S= 


see 


v04-00 
TYSUB.MAR; 2 
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; EXTERNAL SYMBOLS 
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WWI SF SF FSF FF FFT TFNNNNANNNN OOOOOOOOO 
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TTDRVR Stry YSUB.MAR;2 
-SBTTL TTYSABORT_IO = ABORT 1/0 


TTYSABORT_IO = Cancel 1/0 as a result of ABORT out-of-band. 


INPUTS: 
Re - STATE VECTOR 
R> = UCB 


GE Se Oe Oe Oe Oe te Oe te ee 
4d 
‘ 


TYSABORT_10:: 


RBS soe SS 


OOOO OOO 000009 09090968 090909 SI NINN NINN 


NAW EWN SO OO NAN E WN  O ODNOU ES UO 


0368 30 BSBW TTYSPURGE_AHEAD 3 PURGE THE TYPEAHEAD 
51 ggcc 3 43 MOVAB YESS TT UPLINK (AS) ot ; Get start of write queue. 
1 dD 30s MOVL R1,R 3; Copy it to check for end. 
33 g b0 MOVL TTYSL_WB_FLINK(R3),R3 =; Get next entry. 
1 01 CMPL R3,R1 3; At end of queue? 
1 13 BEQL $ foe" Branch forward. 
54 244A 9 MOVL TTYSL_WB_IRP(R3) ,R4 ; Get associated IRP address. 
F 1 BEQL 30$ 3; If no IRP, it’ M. a bresdcast, 
3 : leave it int e queue 
53 be: A dO MOVL rive, WB_BLINK(R3),R3 ; Get entry's ane Link. 
54 «(00 B OF D REMQUE @TTYSC_WB FLINK(R3),R4 : Remove the Link. 
Pepe" 0 1 BSBW TTYSWRITEPOST 3; Queue it for completion 
E 11 4 BRB 30$ 3: Try for next Lin 
é 3 50$: ; Stop the current 1/0s. 
0 IF __NOT State - ; Branch forward if no read is 
6 1 AD ,60$ 3; currently in progress. 
A § CLR_STA tee 3; Clear escape bits. 
A <ESC ,BADESC> 
53 78 AS dO ? 4 MOVL UCB$L_SVAP TE(RS) ,R3 3; GET THE PACKET ADDRESS 
54 58 a5 00 5 MOVL UCBSL_IRPC(RS) RS : Get eceress © { 
8 $ IF STATE EOL,55% 3; IF END CINE 1 HEN ALREADY SUBTRACTED 
1 3A AG H 3 MOUZBW IRPSL_MEDIA+2(R4),R1 3; GET THE OT NOTH OF THE TERMINATOR 
Cas 51 OA 6 ; pa SUBW =o, TTYSW_RB_TXTOFF(R3) ; AND FIXUP THE COUNT 
38 A4 4 4 10 CLRL IRPSL_MEDIA(R4) 3; Clear terminators. 
FFB6" 30 i} BSBW TTYSREADONE :; Complete the read. 
A i 60$: ; Check for a write to complete. 
00DC o 8 A 14 TSTwW ucesu. TT_MULTILEN(RS) ; Test {9r non-zero 
4 15 BEQL 3 he zero 
16 SET_STATE MULTI 3 eB re here because 
1 3 nih 7 clear it if called 
4 3 65$: IF NOT Stare.” 3; Branch ofward f no write is 
4 1 WRITE ,70$ ; in progres 
+3 ; 8 y BSBW TTVSABORT 3; Abort any current output activity 
AO 8 BSBW TTY$ 3; Restart output 
53 009° C D § MOVL Me ted ie nal NF (RS), R3 ; Get pon Bee. oo. write packet. 
4 A 8 MOV Te el 3 we stetus code in the 
28 A 4 TTY$W "WB PE Re gt) ; pack 
FF9S* 30 2 BSBW TTYSWRITEDONE 3 abe pM the 1/0. 
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; And echo the control char. 
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«SBTTL TTYSAUTOBAUD = SENSE AND SET BAUD RATE 


+ 
TTYSAUTOBAUD = Sense and Set baud rate 
Functional description: 


This routine is called from the TTYCHARI module when a job controller 
character has been detected. It Sooynes fre character typed was a carriage 
return. The default sampling speed is 9600. If the terminal is set at baud 
rates 1200 - » the algorithm will detect the proper baud rate on one 
character and set to it. If the baud rate s other than that, READERROR will 
detect a framing error on set the sampling rate to 600. A second coretoeg. 
return then sampled at 600 baud can map the 50-600 baud range. Using the 9600 
or 600 baud fee e the algorithm matches the character read to a specific baud 
rate. No split speed detection is allowed. 


Inputs: 


IPL = Device IPL 
R5 = UCB address 


Outputs: 


Baud rate can change. 

R35 will be changed to <CR>, or a space 
R4 is destroyed. 

RS is preserved. 


BIE 9 ODN NE WIN 9 OD NAME WIN $9 OD NAME WWI OC OOO NAEP OD NOUS UNO 
A 
q 


COCO C909 09 0909 NINN SNAP APA AA AAA MATIN PLP PELE 


: TTYSAUTOBAUD: : 
9080 cS) ot CMPL UCBSL_TT_RDUE(RS),- 
00000000 ' GF gg Ne SGL_ABSTIA 3 compare to current 
4—E 13 BEQL 0$ 3; branch if too soon 
0053 O7 €E5 BBCC #7,R3,10$ ; Clear high order bit 
a 3; check baud rate 
54 00000000'EF 5 7 10$: MOVAB TTY$AB_9600,R4 3; set 9600 baud table 
OOF4 C F i e3 CMPB #TTSC_BAUD_9600,UCBSW_TT. SPEED(R ) ; speed at 9600 ? 
146 #1 BEQL 20$ 3; branch if yes 
54 000 "EF 3 3 MOVAB TTY$AB_600,R4 ; set 600 baud table 
OOF4 C o7 CMPB #TTSC_BAUD_ 600, UCBSW_TT_SPEED(R ) ; speed at 600 ? 
8 13 BEQL 208 3 branch if no 
54 F A 7 MOVZBL #TT$C_BAUD_9600,R4 3 Yreng baud baud rate for sampling 
002C 0 ‘A BSBW 351 -SPEED 3; Set to 9600 
6 1 444 BRB $ : Exit 
7 3 now test character 
ue 
84 3.6C«@#é F 20$: CMPB R3,(R4)+ 3; input same as table ? 
Os } BEQL aE 3 ahaa to set speed if yes 
4 06 INCL RG 3; increment past baud rate 


TTYS = Terminal driver miscellan a subrout 19-8 or 188e 96:16:13 AX/VMS Macro V04-00 Page 


v04-001 TTYSAUTOBAUD = SENSE AND SET BAUD RA TTDRVR.S REIT TYSUB.MAR;2 
64 9 A 7 TSTB (R4) 3 qnd rs) yet, 
3 rf A BGEQ g0s : loop A. 
1 1 M3 BRB $ 3; no cotch 
wb 4 ; Set speed, zero speed+1 to indicate not split speed 
54 64 AC 95 30$: MOVZBW (R4),R4 3 set boud rate 
18 1 at 34 BSBB. Ss SET_SPEED : Set line speed 
64 AS 01 AA } 3 BICW gucest yin. UCBSW_STS(R5) ; Clear timeout & expected 
08 9 CLR_STATE Clear AUTOBAUD pending 
33 OD 9A 9 38 ROVZBL ATVs. Set carriage return as input 
Q0000000'GF D0 9 G*EXE fr hie - 
0080 C5 ; 2 UCBSL_TT “RDUE (R5) ; Set time this path taken 
: c § 40$: 
be tRe : No appropriate mapping was found, make sure that character isn't a terminator 
53 20 9A bee 186 Sos: Roveet #TTYSC_BLANK,R3 ; Invalidate character 
05 bce $8 RSB 
be 109 SET_SPEED: 
OOF4 CS 54 98 O0C9 410 poveew Mi UCBSW_TT SPEED(RS5) ; set speed, zero out speed+1 
O9A8 30 Bock 411 BSB TTYSSET_CINE : Set Line speed 
05 O00D1 412 RB” ; Return 


Ll 9 
JO"ON TERMINAL" 'ScSEP=19B¢ 19:90:12 ETTDRVR.SRESFIvsue.RAR;2 © 29° U3, 


~SBTTL TTYSCANCELIO = CANCEL 1/0 ON TERMINAL 


ys - Ter 
42001 TTYSC 


mo 
cre 
em 


++ 

TTYSCANCELIO = CANCEL 1/0, DEASSIGN, AND DEALLOCATE 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS ENTERED TO STOP CURRENT 1/0 ON A TERMINAL UNIT. 

Tne Geer yayee cn aspera kst REQUE OR WRITE 1/0 IS CANCELED ALONG WITH 

IF THIS OPERATION 1 UNIT WITH A ZERO REFERENCE COUNT, THE CONTROL 
Y ASTS_ARE F CUSHED. THEN YPEANEAD BUFFER 1S DEALLOCATED AND THE UNIT 

IS INITIALIZED FOR THE NEXT USER. 


This routine always clears the control-0 state bit, and also clears 
the control-S sta ; bit if the UCB reference count is zero. 


4-4-4 AAA _A_A_A_A_A_A_A_A_A_A_A_A_A_A_A_A_A_ AS 


INPUTS: 
Re = NEGATIVE OF THE CHANNEL NUMBER 
R35 = CURRENT 1/0 PACKET ADDRESS 
0 R4 = PCB OF CANCELING PROCESS 
; RS = UCB ADDRESS 
OUTPUTS: 


R4,R5 ARE PRESERVED 


CANCELIO ry USAGE 
SAVE THE CHANNEL NUMBER 
SETUP IPL AND REGISTERS 


TTYSCANCELIO:: 
MOVL R2,R3 
BSBW TTYS$LOCK 
ge #*M<R4,RE,R7,RI> 


OVL ; COPY CHANNEL NUMBER 
MOVL  UCBSL_IRP(RS),R3 > GET THE CURRENT 
MOVL : SAVE LOGICAL UCB ADDRESS 
MOVL ype TL_PHYUCB(RS).RS ; GET THE PHYSICAL 
: : CHECK AGAIN AFTER LOCKING THE DAT BASE 


BRW CANCEL_DETACH 
5$: PUSHAB CANCEL_DONE 


Empty the write queue. 


EXIT TO HERE WHEN FINISHED 


Get first buffer in queue. 


1 SF Ob 


MOVAB — UCBSL_TT_WFLINK(RS) .R1 
R1,R 


PO a a ot at a a ot MMMM MMUAUMUAUMUAUMUAUAUAUAAAAAHAAHHtteettdeeeteeeeee 


SSDP APDP PEP PPP DIT BB ELLE EE 


SOO NA AEA $$ O OD NA NE WWIN SO OD NIA MEIN OS OD NAME WAIN 2 CO OD NOAOUEWIN OOO VNOUNS 
‘ 
§ 


COOOCCOCO NN NN NNN MAMMMMoOOOCSCVTVCTVTVTVCTTCCOS 


OODPRHL MMM DOOOOS OCS DOwn"™ Coe 


MOVL ; Copy buffer address. 
10$: 5 Empty write queue. 
MOVL TTS _WB_FLINK(R7) ,R? ; next buffer. 
CMPL R7,R : is this the end of queue? 
1 BEQL 40 ; Yes. Branch past loop. 
1 MOVL TTYSL_WB_IRP(R7) ,RO 3 Get egdress ot associated IRP. 
F2 1 BEQL 10$ ; Branch if broadcast buffer 
1 3 (leave these in queue). 
04 €0 0O1 BBS #IRPSV_VIRTUAL,- : Don't dequeue virtual 1/0 


" 
—_ 


S 


OC A3 


” & 


ONOOCOAAf£OO 


Poromuvuinmy > \P 


08 
29 64 AD 
60 A4 


28 A3 6 
1¢ 


C 
30 


o-098 


Sooo OoOOOSOOOOSOOCOOCOOOCOOOCOOOOOOOSOOSOOSOSCOCOOCOSOOOOOOOOOOOOOOOOOO 


ne en eee ee eee ee rr rt rrr rar 
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a 9 
er miscellaneous subrouti 16-SEP-1984 02:12:1 AX/VMS Ma v04-0 
CANCEL I/0 ON TERMINAL “S$ sets 7 96:16:13 TTORVR. CREST YSUB MAR: 2 
RPSW_STS(RO),10$ 3 packet. 
CMPL esi th ),- 3; Compare packet's PID with 
BNEG 4 LUPID(R4) 3 gurrent recess mare sas 
3 match. Go to next pa " 
CMPW R6, IRP$W_CHAN(RO) ; Does the channel match? : 
BNEQ ; No. Go to next packet. 
BBC RPSV_BUF I ; Branch on direct 1/0. 


$0 Ste (ROS ,208 
PSA FUNC,- 
$w_STS(RO) 


208: ; 
MOVZ2WL #SS$_CANCEL,- : 
UCB$Q_BOFF (RS) : 

PUSHL R4 : 

MOVL TTS, WB_BLINK(R7),R7; 

REMGUE a@TTYSC WB FLINK(R7S,R4 : 

BBM TIVSWRITEPOST : 

BRB 10$ : 


: See if a read is in progress. Cancel it 
3; canceling process. 


40$: 
:; Check for read in progress. 
BBC #UCBSV_BSY,- ; Branch if no read in progress. 
UCBSW_STS(R9) .50$ 
CMPL PCBSL_PID(R4) , IRP$L_PID(R3); PID MATCH? 
BNEQ 50$ ; Branch if no match. 
CMPW 88 IRP$W_CHAN(R3) 3; CHANNEL MATCH? 
BNEQ 50$ : Branch if no match. 
IF _NOT_STATE = 3; Proceed if this is not a read. 
READ ,50$ 
CLR_STATE - ; Clear escape bits. 
<ESC ,BADESC> 
PUSHR #*M<R4> ; Save the PCB address. 
MOVL UCBSL_IRP(R5S) ,R4 ; Get address of IRP. 
CLRL —sIRPSLMEDIA(R4) : Clear terminators. 
MOVZWL #SS$_ABORT,- ; Set up abort status code. 
UCBSO_BOFF (RS) 
BSBW TTYSREADONE ; Complete the read. 
45$: ; Remember to restore register. 
POPR #*M<R4> ; Restore PCB address. 
50S: ; Check for a write in progress. 
IF_NOT_STATE - ; If no write request is in 
WRITE ,60$ 3 progress. branch. 
MOVL UCOSL UT URTOUE (RS) .R7 ; Get address of write buffer. 
MOVL TTYSL_WB_IRP(R7) ,RO ; Get associated ° 
BEQL 60$ 3 no itp then don’t cancel 
CMPL sOOSL PID IRD}. : See if packet's PID matches 
PCBSL_PID(R4) ; process’ PID. 


3; Otherwise 
: buffered 1/0. 


clear function of 


Set up 1/0 completion. 
acqurn CANCEL error status 
code. 


Save R4 

Get backward Link. 
Remove buffer from queue. 
QUEUE IT FOR COMPLETION 
Restore R4 

Get next buffer in queue. 


if it was initiated by the 


002d 


64 A9 «(01 


12 0088 3 


0079 
009E 


52 0088 C5 
FE3B' 


- veratos 
TTYSCANCE 
1 1 
1 
1 
189 
C Q18C 
1 
Bf 
80 O19 
19A 
30 019C¢ 
BA 0O19F 
1A1 
1A1 
1A1 
1A1 
1A1 
30 O1A1 
1A4 
1A4 
1A4 
1A4 
BS O1A4 
12 O1A7 
01A9 
1A9 
8A 1A9 
1AD 
E4 O1AD 
si 
38 bibs 
0 0186 
1B9 
DE 0189 
1 Be 
bie 
1C 
1¢5 
DD O1C5 
4 1C7 
1CA 
ba 1¢D 
0 100 


PUPUPVPV IV LVS VIVES USVSUSUS TSU SUSVSUS USUI USUI USUI VOSS SISOS OASIS ISSO IOS IOS 


SN IDS DDD DS OS DS DS TTT Ee BB BB BEE WIN 
NO OONAUE WN $0 OONOA UNE WIN 0 ODNAUE WN OODNAUE WOO 


; PROCESS 


60$: BSBW 


Nn 9 
subrouti 1 9 AX/VM cro V04-00 ” 1 
BINA 'SzSEb TSBs F9iS9:]3 PANOMS Bacco VOK=OO 2 «© Page 13, 
60$ 3; Branch if no match. 
R IRP$W_CHAN(RO) 3; See 7 qpeanece match. 
60$ 3; No. Don! t stop this write 
pereMeoer 3; Abort any current B a oy  sctivity 
#Ss 3; Set abort status in t 
ucBs@ sport &R5) ; UCP <* cus wor 
#*McR 3 Save che PCB address. 
UCBSL_ oF Twa teyr (as), oR3 ; Get address of write packet. 
UCBSW"B 3 owe »sterus code in the 
i MT : f te the 1/0 
3; Complete the " 
#*R<RS 3 Eonpteé PCB address. 


CONTROL AND OUT OF BAND ASTS 


CANCEL_AST 


; SEE IF THIS IS THE LAST DEASSIGN 


; TSTW 
BNEQ 


BICB 
BBSC 
BSBW 


BSBW 
65$: 


MOVAL 
CLR_STAT 


708: 


YEpeu_ ner CRe) 
65$ 


#UCBSM_TIM,UCBSW_STS(R9); 


#TTYSV_SX_RECONNECT 
UCB$Q_TT_STATE(RS), $0$ 


CANCEL_MODEM 
CANCEL_-RESET 


UCBSQ_TT STATECRS). R2 
TTYSSTARTOUTPUT 


R4 
attysy FD_LINK,R4 
T)vscr CRE_FORK 


3 CANCEL OUTSTANDING ASTS 


REF COUNT 0? 


RESET HANGUP TIMER IN LUCB 


SIGNAL _HANGUP IF NEEDED 
RESET PHYSICAL UCB 


3 pesvons erat ADDRESS 
3; Clear rol-0 state always. 
3 RESTART OANY STOPPED OUTPUT 


3 PRESERVE R 
: SCHEDULE Cink FORK FUNCTION 


vo 


MD be 


57 = 0094 
00000000 ' GF 
57 9449 c9 
52. 0098 C9 
00000000 ' GF 
01 58 
14 
57 ©0090 £9 
00000000 ' GF 
QOOA4 C5 

poo 
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MNF FLOP OW MMMM OWMmMmMm on — 3 2 2 2 2 es 
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er miscellaneous subrouti 16-SEP-1984 1 AX/VMS Macro V04-00 P 4 
CANCEL I/O ON TERMI mets 7 %6 6 13 LT TORVR. SREITTYSUB OMAR: 2 — t}) 
; CANCEL CONTROL AND OUT OF BAND ASTS 
; INPUTS: R9 = LUCB 
CANCEL_AST: 


t RELEASE THE CONTROL C AST BLOCKS 


FLUSH 


3 FLUSH 


10$: 


MOVAB  —UCBSL_TL_CTRLC(R9) ,R7 


L 
JSB G*COMS$F_LUSHATINS 

OUT OF BAND ASTS 

MOVAB UCBSL_TL_BANDQUE(R9) ,R7 
MOVAL UCBS$L~TL~OUTBAND(R9) .R2 
JSB G*COMSFLOSHCTRLS 
CONTROL Y AST QUEUE 

CHEW RB ACANSC_DASSGN 

MOVAB UCBSL_TL_CTRLY(R9) .R7 
CLRL OR 

JSB G*COMSFLUSHATTNS 

CLRL - UCBSL_TL_CTLPID(R5) 

RSB 


CONTROL C ENABLE LIST 
MASK 


ADDRESS THE OUT OF BAND LIST 
A ie SUMMARY MASK 


A DEASSIGN? 
VA | Deer FOR CONTROL Y ENABLE 


ROLLING PID 


—-—- 


—_—————. 


C 10 
= Terminal driver miscellaneous subrouti at iat 38+ 96: 16: 13 yor lyns Be v04-00 Page 15 
TTYSCANCELIO = CANCEL 1/0 ON TERMINAL -SEP=-1 TTDORVR SRE aTry YSUB.MAR; 2 (9) 
i ; PROCESS CANCEL FOR DETACHED LOGICAL UCB. 
1 3 THIS ROUTINE CANCELS ANY INTERNAL STRUCTURES FOR 
i : A DETACHED LUCB. 
3 ; INPUTS: RO = LUCB 
1 ° 
19 CANCEL_DETACH: 
ae , 4 + MOVL 9,R5 ; RESTORE LOGICAL UCB ADDRESS 
FFC 8 1 BSBW CANCEL_AST ; PROCESS OUTSTANDING CONTROL ASTS 
5C : ° ? y bce yegse. REFC(RS) 3; CHECK FOR LAST DEASSIGN 
64 A9 0 BA 1 6 § BICB ween TIM, UCB$SW_STS(R9); RESET HANGUP TIMER wae 
AQ D4 0214 6 CLRL —sUCBSL -BueT ic R9) ; RESET HANGUP TIMEOUT VALUE IN LUCB 
50 0084 ¢5 0D 17 624 MOVL UCB $L-PDT(R5),RO 3 CHECK FOR PENDING REBIND FUNCTION 
1 1C 36625 BEQL $ ; NONE 
0084 ‘0 D4 1 6 § CLRL UCBSL athens ; SIGNAL THAT THIS UCB IS DELETED 
0200 8F A 627 108: POPR #°M<RZ,RE,R7,RID ; Restore registers. 
5 628 RSB 3; RETURN 
629 
7 #630 


04001 


D 10 
heneeys svarout't 1 mii bY 


sce 
MINAL “SEP-19 


driver mis \ 
10 = CANCEL 1/0 ON T 


3 
os 
me 
ce 


Try CA 


8300 F BA 


RSB 


nym SVN 


| CANCEL_DONE : a as 
6 § POPR #*A<RG,RO,R7,RO> 
es 


4 
4 


99359313 Eftoava. saeatry 


v04-00 
YSUB.MAR;2 


; RESTORE LOGICAL UCB ADDRESS 


; Restore registers. 
RETURN 


Page 


df) 


TT 
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aneous subrouti 16-SEP-1984 02:12:1 AX/VMS M v04-00 Pp 7 TT! 
N TERMINAL - ett 96:16:13 YTTORVR.SRETTTYSUB_MAR:2 at dd v0« 


oa 
ie | 
‘— 
< 


TTYS - lerminal 
yous001 TTYSCANC Ll 


FINAL MODEM PROCESSING FOR LAST DEASSIGN 


INPUTS: RS = PUCB 
ANCEL_MODEM: 


CV e Se Se Se Sete 


: CHECK FOR HANGUP 


BBC #TT2$V_HANGUP, - 
UCBSL_BEVDEPND2(R5),15$ ; BRANCH IF LOGOUT/NOHANGUP 
BSBW = CLASSMODEM_DIS ; RESET SPEED AND UCB 


— 
w 
had 
oe 


; CHECK FOR NEED TO REACTIVATE MODEM PROCESSING 


OO OONA NEW CO OONAULE UP 


PDP SSS BB EE 


2 BATAAN SIIIIIG" 


SADA DB DP DWI I 0 8 8 0 


4405 15 €0 BBS #TTSV MODEM .UCBSL_DEVDEPEND(R5) .208 ; CURRENT STATE IS MODEM 
14 00c4 cS) 15 FI 66 BBC #TTSV-MODEM, UCBSL_TT_DECHAR(R5) .25$ + NO 
51 00 9A 0242 664 MOVZBL #MODEASC_INIT,R1 ; NEED TO RESTART MODEM 
O8F4 30 0245 665 BSBW TRANSITION 
OC 11 024 666 BRB 
6A 66 
4A 668 208 
06 0004 CS :15 £0 4 669 BBS #TTSV_MODEM,UCBSL_TT_DECHAR(RS) ,25$ : NO CHANGE 
51 01 A 5 670 MOVZBL #MODEASC_SHUTDWN,R1 3; SHUT DOWN MODEM 
08E6 30 0253 671 BSBW TRANSITION 
5 67¢ 25$: 
05 0256 67 RSB 
57 674 


a a 


pert 'SrSEp=1986 9:50:12 ETtORVA.sReDTYSuBsRAR;2 © "89° (18, 


TTYS - Termina 
yous001 TTYSCANC 


oa 
3 
o 


| 


cre 


RESET PHYSICAL UCB AND MAKE IT AVAILABLE FOR FUTURE USE 


; INPUTS: RS = PUCB 
CANCEL_RESET: 


E 
68 AS 08 AA : BICW #UCBSM_TT_HANGUP, UCBSW_DEVSTS(RS) fe set HANGUP FLAG 
B TE THIS IS CORRECTLY REFERENCED 
8 : BUT 1S NORMALLY MANIPULATED IN THE 
8 : DELETE TYPEAHEAD BUFFER 
50 0064 C5 09 , MOVL y BSL_TT_TYPAHD(RS),RO ; GET ADDRESS OF TYPE AHEAD 
1 6 BEQL : NONE 
QOE4 C5 D4 026 CLRL UCBSL_TT TYPAHD(RS) 
000000 0 GF 16 6 JSB G<CORSDR QDEALMEM ; DEALLOCATE TYPE AHEAD BUFFER 
orc 3 6¢ 10$: BSBW TTYSPURGE PAMEAD : PURGE TYPE AHEAD BUFFER 
6F 
oF ; : SET UP DISCONNECT SIGNAL TYPE FOR PORT 
7E 01 00 gf MOVL ; INDICATE NOHANGUP 
02 E1 2 BBC attosy 
02 48 A UCBSL VBEVDEPND2(RS), 15$ ; BRANCH IF LOGOUT /NOHANGUP 
D4 CLRL CSP?) + ASSUME HANGUP 


15$: 
OF LAST DEASSIGN 


? RESTORE PERM CHARACTERISTICS 


OOA 7 CLRQ  UCB$Q_TL BRKTHRUCRS) ; RESET ALL THE BREAKTHRU CLASSES 
2 3 BSBU 436s TTYSSETUP_U : SETUP UCB FIELDS, AND RESET PUCB 
MOVL § G*EXESGL_ABSTIM,- 
008 UCBSL_TT cRDUE (RS) : SET TIME TO "TURN OFF"’ AUTOBAUD 
7 30 BsBw = sd TTYSSET_CIN ; RESET SPEED AND UCB 


00 68 AS 600 =«COES BBCC #UCBSV_JOB,.UCBSW_DEVSTS(R5),30$; RESET JOB CONTROLLER OWNERSHIP BIT 


Sa SS Ss we OOO 00000000 000009000000 0900000009 SII 


OOOO MANE WIN OOD NIA NE WIN | O OD NAME WIN 3 OS OD NAU EWI 0 OD NAME UP" OO OONO 
ee ete te Sete 


SSS NSTI PAA AAA AAOAA AAO APO OOOO SOAOS 


@ OOOO NY 


30$: 
22 ¢5 B0 MOVW  UCBSW_TT_PRTCTL(RS),-(SP); SAVE THE PORT CONTROL | WORD 
0122 ff $028 bi AA BICW #TTYSA_PC_XOFENA,UCBSU_ " “pRTETL URS) RAK THAT THE CONTROL 
Driver” cate Con XOFF SETTING 

07c¢0 30 BSBW =~ TTYSRESUME CONT INGE ANY PORT OUTPUT 
0122 cS. «BE OB mOVW (SP) UCBSU. TT panes taal 
52 00B8 CS DE MOVAL _UCB$Q_TT STATE(RS), R2  ; RESTORE STATE ADDRESS 

CLR_STATE 2CTR : Clear control-0 state always. 
30 ae POPL RO : GET HANGUP INFO AS ARGUMENT TO 
07 BsBu TTYSDISCONNECT : INFORM THE PORT 


ys Terminal driver miscellaneous subrout| 16- a seo 138¢ 96: 1g: 13 yaa iyes Macr 


Page 19 
1 TTY SETUP_READ = Set up UCB and states f 


TTORVR. SREDTTYSUB MAR; 2 (14 


-SBTTL TTYSSETUP_READ = Set up UCB and states for a read 
p++ 
§ ; TTYSSETUP_READ = get ready to initiate a read operation 
: : Functional description: 
40 ; This rout ine copies IRP fields into the UCB, disables mailbox, 
41 ; sets up qt med-out reed. cancels control-0, purges the type 
tg 3 ahead buffer, etc. as instructed by the IRP. 
te : routine is called by both TTYS$STARTIO to start a read, and 
45 ; ity RESTARTIO to restart a read after a seuerte lure or after 
rf : a write completes. 
‘8 : Inputs: 
750 : Rg - address of the vce state bits 
751; R - address of the IRP 
i § 3 R - address of the UCB 
, 4 : Outputs: 
739 : RO, R2, R3, and R5 must be preserved. 
7 8 : R1,R4 destroyed. 
760 ; 
761 = 
i TTYSSETUP_READ:: 
54 2C ad 00 MOVL “TRPSL_ SVAPTECRS) R4 3; Get buffered block address. 
oorc cS) «BO (0289 MOV) UCBSW~ OR(RS).- : Save the current cursor 
3A AG 14 res TTYSw_ “RB EpTORGtRa) 3; position. 
BF re 3 
+f 789 3; Check to see if mailbox should be disabled. 
BF 770° 
OD 4A AQ 91 BF 77 CMPB TTYSA_RB_PRM(R4) oMTTYSC_CR; a THE FIRST aryl} A <CR> 
03 12 ak BNEQ 5$ ; NO THEN LEAVE error HERE 
SA AG BG C 77 CLRW TTYS$W_RB 4) pepe ; ELSE ZERO THE CURSOR POSITION 
OA €E1 774 5$: BBC #10$V"0S : Branch forward if disable 
15 20 AS 75 775 IRPSW_ PUNCKR y “108 3 mailbox not requested. 
51 C ~~ - 0 ae MOVL Ucest TT_LOGUCB(RS) .R1 GET LU , ADDRESS 
44 AS 9901 bf C D 28 BISL MBRDSABL ,UCBSL “DEVDEPEND(R 
44 Al 1 F C pA 7 BISL atTeAn _MBXDSABL, UCBSL— PE VDEPEND(RGD 
E f : Set up read with time out if necessary. 
10s: 
07 «€1 : ; BBC #10$SV_TIME ; Branch forward if read with 
1 al E a IRPSW~F UNE CAS 30$ > timeout not requested. 
00008060 ff b0 €7 MOVL TTYSA_MAXTIME 3 ass zero second t 
C5 E UCBSL“TT XROUE (RS) ; (mean ng just empty ty typeahead 
i 3 3 bu er into read buffer). 
54 36K OL F MOVZWL TTYSW_RB_TIMOS(R4),R4 ; Get number of aa to wait 


— 
a 
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TTYS - Terminal driver miscellaneous subrout{ 16-SEP-1984 :1 AX/VMS Macr 
vou=001 TTYSSETUP_READ = Set up UCB and states f “3p. 198 96: 48: 3 tT TORVR. eas erVsuB MAR; 2 
F4 3; between geet ef character. 
00000000 ' GF gf i Fé Rots g? “EX st ABSTIM,=- : A pen Be po store the due 
S080 @8 F Re ove RDOECRS) tame 
20S: 
08 AB BISW eyteen TT_TIMO,=- ; Set the ‘this is a read with 
68 A w_BevSTS(R5) : timeout” bit. 
4 ; Always turn off control-0 state. 
4 30$: 
4 CLR_STATE - ; Always clear control-0 state. 
4 <CTRLO> 


: Handle a readsync terminal. 


BBC #TTSV_READSYNC ; Branch forward if terminal is 
UCBSL~DEVDEPEND(RS),40$ : not in readsync mode. 
IF_STA a ; If in EOL state, don't issue 
hide T EOL>,40$ ; an XON code. 
BSBW TTY$xO 3; Send XON 
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RSB Return to caller. 
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Llaneous subrouti 16-SEP-1984 02:12: AX/VMS Macro V04-00 
CONTROLER OF LOG 7-S$ oats 96:36:13 TTDRVR. SREITTYSUB.MAR: 2 
‘ -SBTTL TTYSNOTIFY = NOTIFY JOB CONTROLER OF LOGIN IF NECESSARY 
TTYSNOTIFY = NOTIFY THE JOB CONTROLER OF LOGIN PENDING IF NECESSARY 


FUCNTIONAL DESCRIPTION: 


i 


~<a 
cw 
oo 
we 


3¢ 

: THIS ROUTINE WIL VALIDATE A REQUEST TO NOTIFY THE JOB CONTROLLER 

; OF A LOGIN REQUEST. IF THERE IS A TYPEAHEAD BUFFER, THE JOB CONTROLER 

; HAS NOT ALREADY BEEN NOTIFIED AND TERMINALS ARE ENABLED A FORK IS 

+ QUEUED TO PERFORM THE FUNCTION. 

3; INPUTS: 

: RS = PHYSICAL UCB ADDRESS 

$ OUTPUTS: 

; ALL REGISTERS SAVED 

TTYSNOTIFY 

RO : SAVE A SCRATCH REGISTER 

BBS #TTSV_NOTYPEAHD UCBSL DEVDEPEND(R5),100$; IF SLAVED TERMINAL, IGNORE 
MOVL UCBSL“TT LOGucBiR ),RO ; GET LOGICAL UCB ADDRESS 
TSTW CBSW_REFC(R ) : UNIT REF COUNT 0? 
BEQL $ : IF EQL THEN JOB CONTROLLER POSSIBILITY 
TSTL uc $L_AMB(RO) t USER ASSOCIATED MAILBOX? 
BEQL $ : IF EQL THEN NO 
BBS #TTS$V_MBXDSABL ucBst DEVDEPEND(RS),100$; BR IF NOT ENABLED 
BBS #ycBS0_TT_NOTIF,UCB G_DEVSTS(R5),160$; OR IF ALREADY NOTIFIED 
BRB 15$ : CONTINUE IN COMMON 

10$: BBS #UCBSV_JOB,UCBSW_DEVSTS(RS),100$; IF ALREADY NOTIFIED THEN GO 
BBS #DEVS$V SPL. UCBSL_DEVCHAR (RSS 100$; IGNORE IF DEVICE IS S$ 
MOVAB G*OPASOCBO.RO ; ADDRESS CONSOLE UCB 
CMPL ~—s_ RO RS : IS THIS THE CONSOLE 
BEQLU 1 ; IF EQL THEN SKIP TERMINAL E 
TSTW  G*SYSS$GL_JOBCTLMB+UCBSW_DEVSTS; TERMINALS ENABLED FOR JOBCTLR? 
BLEQ 1008 ; IF LEQ THEN DISMISS 

15$:  PUSHR #*M<R3,R4> t SAVE THESE REGISTERS OVER THE FORK 
MOVL #TTY$V/FD_UNSOL,R4 : ASK FOR UNSOLICITED DATA FORK 
BSBW = TTYSCRE_FORK + FORK TO SEND MESSAGE 


20$: POPR #*M<R3,R4> 
1008: post RO 


J1 
TTYS rminal driver miscellaneous kA. 16-SEP-1984 02:12:1 AX/VMS Mac Pa 2 TT 
v04-001 TrVSPURCE LAHEAD = PURGE TYPEAHEAD BUFFER 7= aaty y 96:16:13 YITONVA. SAE IST YSUB o MAR; 2 “ (ie) vo 
: «SBTTL TTYSPURGE_AHEAD = PURGE TYPEAHEAD BUFFER 
p++ 

: 3 TTYSPURGE_AHEAD = PURGE THE CONTENTS OF THE TYPEAHEAD BUFFER 
f ; FUNCTIONAL DESCRIPTION: 
4 3 THIS ROUTINE RESETS THE TYPEAHEAD BUFFER POINTERS TO REFLECT NO 
ie : DATA PRESENT. 
t3 + INPUTS: 
rg : R2 = ADDRESS OF THE UNIT STATE VECTOR 

68 28 ; = UCB ADDRESS 

iS 0 + OUTPUTS: 

: : R4 = ADDRESS OF TYPEAHEAD BUFFER STRUCTURE 
68 : R2,R3,R5 ARE PRESERVED. 
68 : TTYSPURGE_AHEAD:: ; PURGE TYPEAHEAD 
54 O0E4 c5 09 NOVL y BSL TT_TYPAHD(R5S),R4 GET TYPE AH AHEAD BUFFER ADDRESS 
4 037 § CLRW TV Su. TA. INAHD (R4) * SET NO DATA IN, TYPE AHEAD {BUFFER 
64 ort E 7 30 MOVAB TTYSL-TA-DATA(R4) ,TTYSL_ tA _PUT(R4); RE T POIN 
04 a6 011 if 9 7A 89 MOVAB V8 tar DATACR4) ,TTYSL-TA-GET(R4); RESET GET POIN NIER 
07 04 A2 E 9 36 50$: BBCC #TTY$0_ST TYPFUL, 4(R2),558; TYPE AHEAD FULL AND INPUT STOPPED? 
9 CLR STATE <OVRFLOS ; RESET OVERFLOW CONDITION 
O74A 3 9 94 BSBQ TTYSXON 3; SEND XON 
C 895 55$:  RSB 


voo=001 ir¥BRRGBbnge Yer Af PettLoncoussubroutt Tg-sEp-tgey 09:19:13 yanzwns taece VSUB-RAR: 2 


4 4 -SBTTL TTYSREADERROR = Line error occured. 
p 38 ; TTYSREADERROR = READ ERROR OCCURED ON LINE 
p ? : Functional description: 
i) : : This routine is cat ed from a terminal port Gr iver to report 
D 4 ; a read error on a Line. It completes the read with error in the 
. > pvent a read is 2 sles’ or just returns if no read is active. 
4 9 . ; Inputs: 
D : : : = De vice IPL 
D 19 } He B address 
D 911; 
: 318 ; Outputs: 
D 312 : RO. R1,R2,R3 are destroyed. 
D + 3 4:R5- are preserved. 
8D 18 :-- 
; 4 -ENABLE LSB 
D 38 TTYSREADERROR: : 
11 D 920 PUSHR #*M<RO i 3; SAVE REGISTERS 
54 O1F4 BF 3 F921 MOVZWL #SS$_PARI : ASSUME PARITY 
52 g 8 ¢3 9% 9 : MOVAB UCBS$O_TT TTATE(RS). R2 ; ADDRESS STATE DAT 
9? C £0 64 9 BBS He. R : BRANCH IF PARITY ERROR 
E 5 go § 9D 924 BBS 135,R * TTYSFRAMERROR 3; BRANCH IF FRAME ERROR 
54 0838 F Al 925 MOVZWL #SS$ DATAOV : OVERUN UN ER ROR 
51 ocd C5 06 A6 9 8 10$: MOVL veasc. TT LOGUCBIRS) , R1 ; Get logical UCB address 
5¢ a) F M4 rors UcBsu- “REFC( ; forenee) "8 8 use ? 
22 48 AS 5 3 6 G § BBC #TT2 esy Cth Re’ -UCBSL _DEVDEPND2 (AS) 128: check A UTOBAU: 
53 0p 91 0385 930 CMPB#'TTYS ; 18 THis CHA RACTER A v<ch> 
ECAR 30 O8BA 982 BSBu | Stowe i tes Then OOMPUTHERE. 
0042 3 3 BRW 15$ : RETURN TO THE USER 
F 5 935 11$: BBCC #UCBSV_TT_PARTY,UCBSB_TT_PARITY(RS) ,70$; EAR PARITY 
0 ita £3 88 Ed te ? $ BBS #UCBSV~TT"USERFRAME , UCBSB_TT PARITY IRS), 7 tel CHANGE THE FRAME 
FB CS 1 cc 9 BISB #UCBSM_TT_LEN,UCBSB_TT =PARITY(RSS ; SET EIGHT BIT FRAM 
- os 30 4 i 70$: Baue 1Tysser. LINE : THEN TELL The PORT 
7 9% : 
b 3 12$: IF NOT_STATE READ ,90$ ; SKIP IF NO READ ACTIVE 
9 Bore 5 9 E1 dG 94 Bat #UCBSV_TT DISPARERR,UCBSB_TT_PARITY(RS) 13$ 
cet Ut Bo Be Bee : HgeTHeaA cages on 
4 $: MOVW R4,UCBSW_BOFF (RS) : SET ERROR CODE TO RETURN 
“oe rer 84 i i, 3 pee TTY SREADONE ; COMPLETE THE REQUEST 
F 94 
: PIP R4,#SS$_DATAOVERUN ; IS THIS A DATA OVERRUN 
eet ae te FA 331 je eNO Te OVRFLO> : Mes THEN MAKE SURE IT 
403 38 “ : : IS SIGNALED 


TTYS 
vo4=001 
1 A 
0108 : : 
0108 C5 1 ° 


54 O1F4 8F if 
ES OOF8 f 


TTVERE 
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inal dr SEP-1984 02:12:1 AX/VMS Macro Vv04-00 Page 24 
ADERROR = Line error occured. -$ ats 96:16:13 YT TORVR. SREITTYSUB MAR: 2 ° (i) 
4 $ 15$: 
4 POPR #@*A<RO,R4> 3; RESTORE REGISTERS 
4 § CLRB UcBSB_fT_OUTYPE (RS) 3 ASSUME NO CHARACTER TO OUTPUT 
408 TSTB & 3; TEST FOR DATA 
A 8 BEQ 198 ; BRANCH IF gen 
4 MOV #1, UCBSB_TT_OUTYPE(R5) 3; SET CHARACTER VALID 
rf 16$: RSB ; RETURN TO POR 
41 18$: 
4) MOVZWL #SS$_PARITY,R4 3; SET ERROR TYPE 
41 i #TTSU_PARITY,- 
419 $9 YCBSB_TT_PARITY(RS) ,15$ ; IF NOT ENABLED, THEN DROP 
41D 966 BRB ; DROP CHARACTER, NO ERROR 


4 
— 


4 10 
TTYS = Terminal driver miscellaneous subrouti 16-SEP-1984 1 AX/VMS M v04- TT 
yous001 TTYSFRAMERROR = FRAME ERROR ON A READ “SEP-1 1382 96: 48: 13 YT TORVR. Se afry YSUB RAR: 2 ea (ia) vo 
aif é pate -SBTTL TTYSFRAMERROR = FRAME ERROR ON A READ 
a0 4 ; TTYSFRAMERROR = FRAME READ ERROR OCCURED ON LINE 
it t : Functional description: 
41F fe : This routine is branched to from a pare ree te report a frame 
41F af ; read error on a Line. It compares jag against 
41F 6 3; last autobaud ety mot, and if a ‘sufficient’ ay 933 seconds) has 
41F 977; passed. the sampling baud whe is toggled between oe ene 
rf $75 ; he toggling to 600 baud will time out in less than x. d, 
rf 3 , : Inputs: 
41F 9 § : RO,R4 saved on stack 
41F 983; IPL = Device IPL 
41F 984; R5 = UCB address 
41F 985; 
ait 2 § 3; Outputs: 
41F 988; Baud rate may shone, 
41F 989; R4,R5 are preserve 
41F 990 ;-- 
41F 991 TTYSFRAMERROR: 
O41F 338 
ait 5 Check if we should attempt autobaud on this Line 
54 00C0 C5 41F 995 MOVL UCBSL_TT_LOGUCB(RS) ,R4 : Get logical UCB address 
5C A4 424 996 TSTW UCBSW_ “REFC(R4) : Terminal in use ? 
OF r f 444 BEQL 40$ ; Branch if yes 
E4 48 AS 10 ? 1908 BBC FTT26V, SECURE  UCBSLDEVDEPYO2(RS? 18 3; NOT SECURE THEN 
53 4 1909 TSTB R3 3; NOT NULL A yt. THEN NOT A BREAK 
34 4 1 8 BNEQ 18$ ; SO GIVE AN ERROR 
OASF 4 1 BSBW TTYSCLASS_DISCONNECT 3; ELSE SIGNAL HANGUP STATUS 
FFCA r \ Be BRW 15$ ; THEN RETURN NOTHING 
OA 48 AS 91 & 1 Og 40$: BBS #TT2$V_AUTOBAUD ,UCBSL -DEVDEPND2(R5), 43$ ; Check AUTOBAUD 
3 43D 1 TSTB R3 : BREAK? 
D1 43F 1008 BNEQ 18$ 3; NO ie GIVE ERROR 
FED9 441 1009 BSBW TTYSNOTIFY ; LET THE JOB CONTROLER KNOW ABOUT 
FFBB £03 ! 1 BRW 15$ 3; THE BREAK 
447 1 \¢ 3 3; check time to see that it's been ‘‘awhile’’. 
447 101 ; note that you want to throw away multiple-character, gingionkeyetreke. 
447 1014 ; characters after the first. This check gives between 0 and one second 
rt ! 1g as: i;¢' t doesn't seem necessary to make it be at least one second. 
0 c5 447 101 CMPL UCBSL TT ROS (8S) «= 
00008000" Ge 448 1 18 XESGL- : check against current 
co rf : 1 BEQL 3; exit if equal 
re 1 : make sure there is no _valte data in R3, if so, leave it for TTYSAUTOBAUD and 
‘3 ! gi don't toggle baud rat 
0108 cS 01 4 1024 MOVB pnpaneg, Ss ota 3; ASSUME GOOD DATA 


N 
TTYS = Terminal driver miscellaneous subrouti 16-SEP-1984 :13° VAX/VMS Macro V04-00 Pa TT' 
yous001 TTYSFRAMERROR ~ FRAME ERROR © poet emer eT obe $5:8513 PATONMS Bache VOhe 00 2 oe 8, vo 
3°6C«@éW 4 4 1025 TSTB 3 test 
4 4 4 1 § BNEQ $ 3 Branch if data there 
0108 C5 " ? ! CLRB UCBSB_TT_OUTYPE(R5) 3; BUT WE FOUND NO GOOD DATA 
2 : } ; time is OK = continue by checking baud rate 
54 F QA QOGSF 1 MOVZBL OT TEE BAUD 3608 .Ré ; Assume set to 9600 baud 
91 ri 1 § CMPB #TT$C_BAUD 9 - 
OOF4 C5 464 1 yCas_TT SPEED (RS) ; At 9600 ? 
12 rts ! : : BNEQ $ 3 no, set 9600 
rh} } § ; Toggle to 600 baud for 2 to 3 seconds 
54 07 9A 0469 1 5 ; MOVZBL _#TT$C_BAUD_600,R4 ; otherwise, set 600 baud 
46C 1 80$: SET_STATE - 
rf} 1040 <AUTOP> ; Set state autobaud pending 
r ! ‘3 TIMSET 2 
FC43) 330 «04 1045 208: BSBW SET_SPEED ; Set Line speed 
00000000'GF DO 0486 1044 MOVL G*ERESGL_ABSTIM,- 
0080 C5 48C 1045 UCBS$L_TT~RDUE(R5) : set time 
FF70 631 «4O048F 61 $ 30$: BRW 15$ 3 and exit via main module 
049 104 
0698 1048 
49 1049 -DISABLE LSB 


TTYS - Term 
v04-001 TTYSRE 
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Be 
4 
4 
4 
4 
4 
4 
4 
4 
04 
04 
04 
54 00D4 0 be 04 
0584 0 04 
AAG B4 046 
OAS 9E 04 
1C AG 04 
05 OQ4AA 
4AB 
2AB 
53 58 AS 00 Dear 
FOFB 30 048 
4BA 
4BA 
4BE 
48 
1D 48 AS 00 «€E1 rt: 
C7 
C7 
OOO1"CF YE cB 
00D8 3 CF 
oopc C5 1 B60 be 
D 
D7 
DB 
04 20 AS £6 


++ 
TTYSRESTARTIO = RESTART CURRENT 1/0 
FUNCTIONAL DESCRIPTION: 


= UNIT UCB ADDRESS 
OUTPUTS: 
R2,R5 ARE PRESERVED. 


+ INPUTS: 
TTYSRESTARTIO:: 
IF _NOT STATE WRITE 


y 108 
IFISTATE WRTALL, 30$ 


SOODOOOSO0O0O0 000 OO OO W009 69 09 09 69 09 09 09 SI NINN SIN NNN NPA AAAAAAAAMMIMIUIUIVMIUIUIVT 
NAA ANS OD NA NE WN SO OD NAUS WN OS OO NAME WN OOD NAME WN O OONOUS Wino 


0 
MOVL UCBSL_TT_WRTBUF (RS) ,R4 
BSBW =: TTYSABorT 
9 CLRW  ©TTY$W_WB_BCNT(R4) 
MOVAB TTY$L-WB"DATA(R4),- 
0 TTYSL—WB-NEXT(R4) 
RSB 
10$: 
IF_NOT_STATE READ, 30$ 
0 0 UCB$L_IRP(RS) ,R3 
IF STATE RDVERIFY,40$ 
ti TTYSSETUP_READ 
PASALL, 208 
IF_NOT_STATE = 
NOE CHO, 15 
BBC #TT2$V_LOCALECHO, - 
UCBSL_BDEVDEPND2(R5) , 208 
15$: IF_NOT_STATE = 
RSH, 308 
MOVAB W*TTYSA_CTRLU+1,- 
UCBSL_TT_MULTI(RS) 
! nov #1 ,UCBSW~TT_MULTILEN(RS) 
1 “"_ €CTRLR, SKIPCRLF> 
1 SET_STATE - 
Aa <EDITREAD,MULTI,SKIPLF>; 
1 BBS #10$V_REFRESH,- 
1 IRPSW-FUNC (R35 ,30$ 
1 CLR_STATE - 


811 
RESTART CURRENT 170°") '9=SEp-1986 $9:59:42 


~-SBTTL TTYSRESTARTIO = RESTART CURRENT 1/0 
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This routine restarts an interrupted read or write request. Such 
requests may have been interrupted due to a powerfail or 
to coincident read and write requests. 


ng = ADDRESS OF THE UNIT STATE VECTOR 


RESTART THE I/0 

IF NOT WRITE THEN CONTINUE 
If passall mode, no special 
restart is require " 

Get address of write buffer. 
Abort any output activity 
No. Clear output byte count. 
And reset the start of data 
ointer. 

eturn. 


BR IF READ NOT IN PROGRESS 
Get address of ‘ 

NOTHING SPECIAL FOR READ VERIFY 
Setup for the read operation. 
Continue without special 
handling if PASSAL 

or NOEC 


without local echo. 

Also no special handling if 
REFRESH state is not set. 
GET A <CR> TO MULTIECHO 


; AND ONLY 1 CHARACTER HERE. 


Set the control-R an 


3; Se d 
send a Linefeed and then <ontrol-r the read 


; If the read ap babes a 
refresh, don 


cancel it. 
Otherwise, cancel refresh 


eS ee eT eee 
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TYSUB.MAR; 2 


roves CHEESE ABSISLE PGR! 


11 


vO4=001 


OSB 


TINUE 
TH 


C 
R5) 
; Go complete the read 


3 State. 

; GET 

; ZERO ALL OTH 
; PUT THE INDE 


BOF F « 


$W 
4 


a 

. 

~ 

oz w 
en 


$ 
: 


aa 
ee eet ae oe aoe aoe oe oo coed coe col 


Oacow~sooawom 
ete te te te OO 
>. > & & & & & > 44,4) 
CSOOOGOOCOOCOO 


LLaneous sgubrout' 1 ~$E0- 1984 93: 43: 13 YAX/VRS Me v04-00 Page 29 Try 


ray sys = Terminal driver misce 
v04-001 TTYSRTIMOU = READ TIMED OUT ENT SEP=-1 TTDRVR afry YSUB.MAR;2 (20) v04 
; 1} ~SBTTL TTYSRTIMOU = READ TIMED OUT ENTRY 
11 p++ 
1 7 ; TTYSRTIMOU = Read timed out entry (from time dependent schedular) 
3 i 5 ; Functional description: 
3 11 : ; This routine is called from the ting Spencers schedular via the UCB j 
5 11 8 ; offset UCBSL_TT_RTIMOU whenever a timed read times out. It completes 
5 1129 ; the read with tTme SS$_TIMEOUT error and, then, continues terminal 
: 1} Oo 3 aresensine. 
: 1 ; Inputs: 
5 1134 ; IPL = IPL$_POWER 
23 i} 5 : RS = UCB address 
28 11 $i : Outputs: 
5 1138 ; 
28 1139 ; RO,R1,R2,R3,R4 are destroyed. 
5 1140 ; R5 is” preserved. 
503 1141 ;-- 
50 1136 
503 1145 TTYSRTIMOU: ; Read timed out e 
050 1144 SETIPL #IPLE$_TIMER 3 peoyee IPL TO BEFOR LOCKING THE DATA BASE 
FAF7° 30 0306 1145 W TTYSLOCK 3 MAKE SURE THE UCB 1s LOCKED 
52 0088 CS 9E 050 1338 MOVAB UCBS$Q_TT_STATE(RS),R2 ; Address state ve ecto 
50E 114 IF_NOT_STATE READ, 20$ : IF THE AST IS LATE (1.£. THE READ IS 
512 1148 NO LONGER active) THEN EX aye 
7C AS 022C 8F BO 51 1149 MOVW O598 TINE Ov Upeee BOFF (RS) ; Set 1/0 completion 
51 1150 IF NOT_STATE RDVERIFY,5$ : NOTH HING SPECIAL” FOR OTHER. THAN READ VERIFY 
53 36 AS 4 at 1151 MOTL UCBSL_IRP(RS) ,R3 ; GET THE IRP ADDRESS IN R3 
54 8 AS OD 5 1126 MOVL UCBSL~SVAPTE(R5) ,R4 ; GET THE READ BUFFER 
8 AS D4 2 4 115 CLRL IRPSL_MEDIA(R3) ; ZERO ALL OTHER READ VERIFY FIELDS 
0A4 90 8 7 1154 MOVB TTY$W_RB Ys AE ae ; PUT THE INDEX INTO THE IOS 
A3 5S2A 1155 IRPSL-MEBIA+3(R3) 
FADI" 39 52C 1128 5$: BSBW TTYSREADONE : Go complete the read 
FACE’ 31 O52F 1157 10$: BRW TTYSSTARTOUTPUT ; then startup any waiting activit, 
05 Be § 1138 20S: RSB 


— 11 
TTYS - Terminal driver miscellaneous subrouti 16-SEP-1984 71 AX/VMS Macro V04-00 Page 30 
yous001 TTYSVT_TIMEOUT = DETACHED TERMINAL TIMEO miler 96: 46: 13 YT TORVR. SRC) Try SUB.MAR; 2 ° (3) 
}} -SBTTL TTYSVT_TIMEOUT = DETACHED TERMINAL TIMEOUT 
11 34+ 
1) ; 3 TTYSVT_TIMEOUT = DETACHED TERMINAL TIMEOUT ROUTINE 
; 1} § : FUNCTIONAL DESCRIPTION: 
11 3 : THIS ROUT INE 1S CALLED ay THE a SYSTEn TIMER SERVICE WHEN 
1169 ; UCB HAS BEEN DETACHED FOR A SPECIFIED PERIOD OF TIME 
1170 ; a1 HOUT 5 ING REATTACHED. A HANGUP AST IS FIRED FOR THAT 
1171 ; LUCB TO GET THE PROCESS KILLED. ALL PENDING IO ON THE INPUT QUEUE 
2 1126 : IS COMPLETED WITH SS$_HANGUP STATUS. IN THIS STATE THERE SHOULD 
1175 ; NO CURRENT READ OR WRITE. LAST DEASSIGN CODE IN CANCEL 
: ye 3 WILL CLEAN UP THE LUCB, AND DEASSIGN WILL DELETE IT BACK TO POOL. 
5 1176 : INPUTS: 
5 1177 ; INTERLOCKED AT DIPL 
5 1128 3 R5 = LUCB ADDRESS 
833 1180 
0002" 05 1181 .WORD. TTYSVT_TIMEOUT-. 
5 11 ¢ TTYSVT_TIMEOUT: 
§ pd 05 11 PUSHL RG ; SAVE SCRATCH REGISTER 
56 5 DO 0537 1184 MOVL R5,R6 3 LUCB REQUIRED IN R6 
53 0084 6 9 3 A i 5 Rov YCBSL_PDT(RG) ,R3:; GET ADD RESS OF ANY REBINDING PUCB 
0084 C34 Ser 11 $ CLRL UCBSL_PDT(R3) ; CANCEL ANY PENDING REBIND OPERATION 
10 AA 0545 1188 5$ BICW #UCBSA_ONLINE,- ; SET LUCB OFFLINE TO PREVENT ANY MORE 10 
64 Ab 547 1189 Ucesu STS(R 
0198 30 0549 1190 BSBW DISC_FIREAST a GNAL HANGUP AST TO OWNER 
53 4C 96 OF 054C 1191 10S: REMQUE @UCBSL_IOQFL(R6).R AIN IO QUEUE 
12 1D 055 119 BVS $ ; E PACKETS QUEUED 
O2cc BF 3C «0552 «119 MOVZWL #SSS$_HANGUP,- ; PILL IN COMPLETION STATUS 
38 a3 336 1194 IRPSC_MEDIA(R3) 
2A A302 AA 0558 1195 BICW #IRPSA FUNC, IRPSW_STS(R3) RESET ANY BUFFERED READS 
00000000'GF 16 055C 1196 JSB G*COMSPOST 7 AND COMPLETE T HE 10 
€8 11 26¢ 119 BRB 10$ 
5 1198 
56 8ED0 564 1199 208: POPL R6 
0 567 1200 RSB 
28 1201 
568 1202 
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~SBTTL TTYSSETUP_UCB = SETUP TERMINAL UCB 
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TTYSSETUP_UCB = SETUP TERMINAL UCB 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS ENTERED in SYSTEM pe 8 TO SET UP Lge a uCcBS. 
EROED ghee FOR THE SPEED AND FILL COUNTS. THE CURSOR IS 

HE inttiangeese’ CRLF. THE HOLDING TANK IS INVALIDATED. THE FORK BLOCK 


f the write queue is not yet initialized (indicated by zeroes in the 
isthead), initialize the queue. 


Initialize the read timed out dispatch (UCBSL_TT_RTIMOU). 
INPUTS: 

R5 = UCB ADDRESS 
OUTPUTS: 

RS = UCB ADDRESS 

RO-R4 ARE PRESERVED. 


=) Sete Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge Ge Ge Ge 
‘ a 
g 


SSNS SSP PAPA AAA AA AA AAA AAPA AOO OOP OSOOASAS CI 


5 - shinai" ~ tige ; SET UP THE UCB (PORT INTERFACE) 
50 ©6000 23 00 MOVL CBSL_TT_LOGUCB(RS),RO ; i THE Lost UCB ADDRESS 

09 #1 BEQL ; NONE THEN INIT THE UCB 

5C AO 83 TSTW ras ; IS 4! bo UCB_ACTIVE? 
4 1 BEQL $ ; NO THEN INIT IT 
0 8ED0 POPL : IF ACTIVE THEN RETURN NORMALY 
05 33 RSB 

00CO C5 ae MOVL : UCBSL T_LOGUCB(RS) ; INIT LOGICAL UCB ADDRESS 
QOA0 C5 Sy MOVL -UCBSL— LIPHYUCB(R5) ; INIT PHYSICAL UCB 


BISL nth on ey ; SHOW PUCB AVALABLE FOR USE 
BICL #0EV "RED. moces. -DEVCHAR2(R5) ; SHO PUCB NOT REDIRECTED 


0004 Bf c8 
3c AS 00000100 8F CA 


me mt ot = = 4 = 2 8 ts = 8 — 4 Ss 2 — 4s ss 2 2 —) 1 3 ou 


DAA ADI III BB BBB EE BE WWIII IW ROPOPINININININII) OOOO 


DODNA AL WI OD OD NA NEW O OO NA UNE WIP 0 OO NIA NEW 9 OS OD NAN EU OOOO NONE 
pa) 


QgAs cs D4 CLRL UCBSL_TL_CTLPID(RS) : CLEAN OUT A LEFT OVER PID 
OOFC 1 80 MOVU oft uC $u"TT_C URSOR(RS) : SET BAD CURSOR TO FORCE CRLF 
108 ¢5 B4 CLRW UCBSW_TT“HOCD(RS) : INIT HOLDING TANK 
OC A D'CF A MOVAB W‘TTYSFORK ADDR, UCBSL_FPC(RS): SET UP FORK ADDRESS 
ord C £8 ¢ A MOVL CBSW_TT_DESPEE(R ) UCBSW_ TT. SPEED(RS) ; SET UP TEMP CHARS 
rs ¢ EC ¢ A MOVE  UCBSB"TT~DEPARI (RS) .UCBSB-TT~PARITY(R55;SET UP DEFAULT PARITY 
A FO CS oD B MOVL  UCBSB—TT“DETYPE (RS) .UCBSB-DEVTYPE (RS): 
44 aS FFEEDEFE F CB BICLs #°C<TTSM_REMOTE>, UCBSL_DEVDEPEND(RS) RO; SAVE CURR NT REMOTE STATE 
44 a5 0004 ¢5 0000 F cB BICL3 #TTS$M_REAMOTE,UCBSL mi DE CHAR (RS) UCBS$L_BbEVDEPEN 
44 A 0 ¢8 ¢ BISL. RO UCBSL _DEVBEPENDT RST PREVIOUS SETTING 
50 445 FC BF p BICBS a#*C<TTSMTPASSALL! TTSM "wok cHos UCB L_DEVOEPEND(RS).RO; GET PASSALL AN 
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on 


$ Set up default DMA characteristics 
48 aS cecS”) oD MOVL UCBSL_TT_DECHA1(R5) ,UCBSL_DEVDEPND2(RS) ; SET UP DEFAULT CHAR WORD 2 
y 68 A $ p0 BBC WT E380 DRA UCBSL_DEVDEPND2(R5) ,8$ ; SKIP IF NOT SET 
13 01 EO BBS #TTY$V_PC 6MAAVL 7UCBSW TT PRICTL(RS),5$ 3; DMA FEATURE AVAILABLE 
CA BICL  #TT2SM~DMA,UCBSL_TT_DECHAT(RS) 3 SHOW NOT AVAILABLE 
+A BICL aut $M_DMA,UCBSL_DEVDEPND2(R5) 3; IF DMA IS NOT AVAILABLE 


#TTYSM_PC_DMAENA,UCBSW_TT_PRTCTL(RS5) ; ENABLE DMA USAGE 


INSV RO, ATTYSV_ST_PASALL .#2,UCBSO_TT_STATE+4(RS); RESET CURRENT STATE 


: Initialize the write queue. 


SSNS NINN NINO PAO AOA OO 


COONAN WO OONOU Er 
o uw 
wn 
o wm 
-_- wD 
” @ 
=< 


en eS Sbahis # | 
0122 ¢S «602 AB H 

00sec C5 , 02 02 28 BEDD 
6 

6 

00c 

6 

: 


a na a tt = = = = = = = = = = 8 Ss 2 2 ss on 


7 
a > ee >) 80 TSTL UCBSL_TT_WFLINK(RS) ; Is the queve initialized? 
Of 12 1 BNEQ 10$ : Yes. Don't redo it. 
poet C 9E § MOVAB UCBSL_TT_WFLINK(R5),- ; Initialize queue to point to 
occ C5 BSL_TT_WFLINK(RS) ; itself in both directions. 
oocc CS-~—so9E 4 MOVAB UCBSL_TT_WFLINK(RS),- ; Now the backward Link. 
00D0 C5 8 5 CBSL_TT_WBLINK(R5) 
$ 10$: 
3 5 
Og 8 90 : Initialize read timed out dispatch. 
0 1592 ° 
00B4 C5 FEDF CF 9E be ° $8 MOVAB TTYSRTIMOU,UCBSL_TT_RTIMOU(RS) ; Set read timed out dispatch 
05 be 7 95 RSB ; Return. 
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~SBTTL TTYSCLASS_FORK = PORT DRIVER FORK ROUTINE 


1297 
1598 ; 
; TTYSCLASS_FORK 
: DESCRIPTION 
1304 : WILL CAUSE A FORK TO BE CREATED FOR A PORT DRIVER. 
1305 : WHEN THE FORK IS CREATED THE DRIVER IS CALLED BACK AT IT'S PORT_FORKRET 
$: > DISPATCH VECTOR. 
§ INPUTS: 
1 10 ; Re = UNIT STATE VECTOR 
6 ; R5 = UCB ADDRESS 
6 1318 ¢ outputs: 
1314 : R4,R3 DESTROYED 
6 13 ; R2.R5 ARE PRESERVED 
0628 1 i$ TTYSCLASS_FORK:: ; CREATE A FORK FOR THE TERMINAL PORT 
54 03 00 0628 1318 MOVL = #TTYSV_FD_PORTFORK,R4 =; SET THE PORT FORK 
0628 1319 AND FALL INTO CREATING THE FORK 


we] jHRER Plt tease uesees eecenns CEECISE GBAGLTE NOEL MESHNMaQh.2 "OO dt 


a -SBTTL TTYSCRE_FORK = General purpose driver fork routine 
: TTYSCRE_FORK = CREATE FORK ROUTINE 
4 


Qe 


FUNCTIONAL DESCRIPTION: 
THIS ROUTINE FORKS IN THE UCB FOR EITHER OF TWO REASONS: 


1. UNSOLICITED DATA = SEND MESSAGE TO OWNER 
2. NO TYPEAHEAD BUFFER = ALLOCATE ONE 


UNIT STAT 
CHARACTER 
FORK REASON 
UCB ADDRESS 


E_vECTO DRESS 
TO rt FER. FOR TYPEAHEAD NEEDED 
STATE BIT 


; OUTPUTS 
1 R3.R4 ARE DESTROYED 
gi *RS ARE PRESERVED 
rs TYSCRE_FORK $$ EAT FORK 
15 14 AS 96 E 5 BBSS aT TYSy FD_BUSY UcesL FROIR 142 ARE WE BUSY 
001405 54 CE : BBSS ceSt FR4(R5) ; THe AP OPRIATE BIT 
54 1485 OD 38: MOVL pce ERS) ,R4 ; set D att THe BIT INTO RG 
2c aS) ODD : $: PUSHL tat tee BIDCRS) : SAVE THE PID ON THE STACK 
4D'AF OF PUSHAB Meee gr onK _ADDR : SET FORK ROUTINE ADDRESS 
00000000'EF 17 : JMP TTYSSYNCH : CREATE FORK PROCESS 
: t FORK ALREADY ACTIVE 
0014 A5 54 E2 4 08: BBSS R4,UCBSL_FR4(R5),25$ |; SET THE APROPRIATE BIT 
5 25$:  RSB : AND RETURN TO THE CALLER 


TTY 
v04 


river miscellaneous syorouti 198 ahs 9 96: 1: 13 yar lyes Be v04-00 Page RY 


id 
TTyScRe ORK = General purpose dr TTDRVR.S afry YSUB.MAR;2 7) 
1357 
1 34 ~SBTTL FORK DISPATCHER 
0358" 1 -WORD  ATTENT : SET UP ATTENTION INTERRUPT 

TTYSFORK ADDR: : 
$ ATTENTION FORK PROCESS 

52 00B8 CS) O9E les: MOVAB UCBSQ_TT_STATE(RS),R2 ; ADDRESS UNIT STATE 
1 2 DSBINT ucese DIPL(RS) DISABLE INTERUPTS FOR THE CHECK 

54 14 a5 O07 90 EA 1 FFS ,#TTY$V_FD BuUSY+1 ucasi_ FR4(R5),R4; FIND THE FIRST BIT SET 

001445 54 €4 1 BBSC R /UCBSL_FR4TR5) ,15$ CLEAR THAT 8 

15$:  ENBINT : ENABLE INTERUPTS 
E3 AF OOF 137 PUSHAL 10$ ; SAVE A RETURN ADDRESS 
1 i CASE  R4,TYPE=B,<- ; AND DISPATCH TO THE NECESSARY ROUTINE 
137 UNSOL = 
1374 ETAHD - 
1375 DISCONNECT - 
1 id: TFORK = 
137 UNLINKFORK = 
1 28 LINKFORK = 
? FORKEXIT> 
1 ? FORKEXIT: 
54 BEDO 1 : POPL R4 ; POP OFF THE ADDRESS OF THE DISPATCHER 
0 : RSB t THEN RETURN 

1385 PORTFORK: 

51 0118 C5 09 1 6 MOVL UCBSL_TT_PORT(RS),R1 : GET THE PORT ADDRESS 

3461 1 JMP @PORT~FORKRET(R1) : AND CALL THE PORTS FORK ADDRESS 
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‘i ~SBTTL FORK TO DISCONNECT THE TERMINAL AND DELIVER THE HANGUP AST 
DISCONNECT 


—- 


g° 


ons 
= 

— se 
xe 


Descrpition: 
Delivers all AST's, aborts all 10 and then sends a terminal hangup 
message to the job controler. 


; Inputs: 
Re = Unit state vector 
R5 = PUcb address 


b 


C 
1 : 
1 
1 
1394 
2 
Hi 
He 
14 
14 ; 
14 ; Outputs: 
1404 
6 14 5 RS = PRESERVED 
688 14 $ ISCONNECT: 
0040 8F BB 688 14 : PUSHR #*M<R6> 
56 00CO CS D 6 1409 MOVL  UCBSL_TT_LOGUCB(RS),R6 ; GET LOGICAL UCB ADDRESS 
691 1411 DSBINT UCB$B_DIPL(RS) 
0388 30 6 1618 BSBW ss TTY$ABORT ; ABORT ANY OUTPUT, 
03¢ 0 ese 1413 Bs TTYSRESUME t AND RESET CONTROL S$ 
6A1 1415 
00 44 aS OD €5 06A1 141 BBCC #TTSV_REMOTE,UCBSL_DEVDEPEND(RS),10$ | ;RESET REMOTE TERMINAL 
44 A644 AS DO GAG 1447 10$: § MOVL UCBSL~DEVDEPEND (RST UCBSL DEVDEPEND (R6) [UPDATE MODIFIED FIELD 
08 48 AS) 11 «~E1 «(06AB C1419 BBC #1T2$V_DISCONNECT,UCBSL_DEVDEPND2(R5),15$;SKIP IF DISCONNECT NOT AVA 
© 83 «YS bebs 1059 Grocer ; NON LUCBUPUC THE SAME 
0028 «31 68 14 é BRW 50$ ape 
éBs 1424 15$: 
g0z¢ 0 0688 1425 BSBW © DISC_FIREAST : FIRE HANGUP AST 
7c AS O2cC BF 3C «(06BB C1426 MOVZWL #SS$~HANGUP ,UCBSW_BOFF (RS) : SET THE RETURN STATUS 
0062 306 cl 14 BSBW DISC “STOPIO + STOP CURRENT 1/0 
. 44 
54 06 00 C4 1430 MOVL § #MSG$_TRMHANGUP,R4 : SET MESSAGE TYPE 
55 $ D (7 1431 MOVL R : SWITCH TO LUCB CONTEXT 
53 60 A 06 CA 14 : MOVL CBSL_AMB(RS) .R3 : GET ASSOC MAIL 
06 1 CE 14 BEQL $ : IF EQL THEN NONE 
00000000'GF 16 p 14 4 JSB G*EXESSNDEVMSG : INSERT MAILBOX MESSAGE 
55 00A0 C5 DO 06D6 14 6 20$:  MOVL UCBSL_TL_PHYUCB(RS).RS ; SWITCH BACK TO PUCB CONTEXT 
040 8F BA 60B 14 POPR #*M<R&> 
Boe a 
ee 1440 50$: 
0040 8F BA 6E0 1441 POPR #*M<R6> ; RESTORE SAVED REGISTERS 
016D 31 0664 1442 BRW UNL INKF ORK > AND DO UNLINK OPERATION 
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yous001 FORE TO DISCONNECT THE TERMERAT AND DELL SeSepe1 ob SoseS TTS PARAMUS Bacto MOR OO Rs oe 3) vo4 
1444 : 
144 ; FIRE HANGUP AST 
1203 ; THIS ROUTINE D LIVERS ALL OUTSTANDING “Y ASTS WITH 
E7 14648 : HANGUP STATUS TO REQUEST TH PROCESS BE RUN DOWN. IN THE 
E7 1449 : EVENT NONE ARE CURRENTLY QUEUED, THEN A FLAG IS SET TO 
E7 1450 : SIGNAL THIS CONDITION WHEN THE NEXT “Y AST IS QUEUED. 
E?7 1451: ores THIS ROUTINE MAY NOT U ILIZe ANY FIELDS IN THE PUCB 
E 14 5 : AS IT IS ALSO USED BY DISCONNECTED LOGICAL UCB'S. 
£7 1454: INPUTS: 
£7 1455 ; R6 = LUCB 
E7 14 $ ; OUTPUTS: 
ot? 14 : RS,R6 PRESERVED 
6E7 1238 DISC_FIREAST: 
67 1460 DSBINT UCBS$B_DIPL(R6) ; INTERLOCK TO DEVICE IPL 
54 9990 £6 i ef 1461 MOVA UCBSL TL CTRLY(R6) .RA : ADDRESS CONTROL Y AST LIST 
0 54 DO O6F3 14 : MOVL RGR : COPY LIST ADDRESS 
O0A8 C6 «10 AD D0 6F6 146 MOVL ACBSL_AST(RO) ,UCBSQ_TL_BRKTHRUCR6) 
60 DS O6FC 1464 TSTL (ROD ;LIST HEAD EMPTY? 
9 if ¢F 1465 BNEQ 46=sS$ [NO,PROCESS HANGUP ASTS 
5c A6 OB 0 1466 TSTW UCBSW_REFC(R6) SIS THIS UNIT OWNED OR ACTIVE? 
703 146 :(OR 1S IT LOGGED OUT) 
04 13 0703 1468 BEQL «=sSS$ SNOT ACTIVE,SO SKIP FLAG SETTING 
08 AB 07 1469 BISW § #UCBSM_TT_HANGUP,- 
68 A6é 707 1470 UCBSW_BevSTS(R6) 7SET HANGUP FLAG TO NOTIFY NEXT CTRL~-Y 
709 1471 TATTENTION AST WHEN IT IS QUEUED. 
50 60 09 709 1678 5$: MOVL  (RO),RO > GET NEXT ENTRY 
OF 13 070C 147 BEQL 108 : IF EQL THEN DONE 
OOAC C6 10 A 00 7 E 1474 MOVL  $ACBS$L_AST(RO) ,UCB$Q_TL_BRKTHRU+4 (R6) 
1C AO O2CC BF O3C «C0714 «1475 MOVZWL #SS$_RANGUP,ACBSL_KAST?4(RO); INSERT NEW PARAM FOR AST 
ED 11 O71A 1476 RB ; CONTINUE UNTIL DONE 
00000000'GF 16 O71C 1477 108:  JSB G*COMSDELATTNAST : DELIVER THE AST'S 
7 1478 ENBINT 
05 0725 147 RSB 
726 1480 
0726 1481 
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ABORT CURRENT AND QUEVED READS AND WRITES 


THIS ROUTINE IS USED TO ABORT INTERNALLY QUEVED WRITES AND 
ANY ACTIVE READ. IT RUNS IN THE CONTEXT OF THE PUCB. 


m d 
TO DISC 
ree lebe 
7 14 ¢ 
7 14 § 
ie 
7 14 § INPUT: a = PUCB 
4 133 OUPUT: R5 = PRESERVED 
7 132 DISC_STOPIO: 
7 14 DSBINT UCBS$B_DIPL(RS) ; INTERLOCK TO DEVICE IPL 
2¢ 8 ce E 7 1338 MOVA UCBSQ_TT_STATE(RS) ,R2 3; 3ET UP LUCB STATE POINTER 
CC ¢ ; 732 14 MOVAB UCBSL “TT WFLINK (RSS ,R1 : Get start of write queue. 
» § 7 1238 MOVL R1,R 3; Copy it to check for end. 
5 A 1298 10$ 
53 $3 DO O73A 1499 MOVL TTYSL_WB_FLINK(R3),R3  ; Get next entry. 
51 Di O73D 15 ? CMPL 8 R1 ; At end of queue? 
0D 13 0740 15 BEQL 15$ ; Yes. nitin th forward. 
742 «15 § ; leave it in the queue. 
53 O4A DO 0742 15 MOVL rive, WB_BLINK(R3),R3 3; Get entr $ Seshuere Link. 
54 «(00 B of 746 1504 REMQUE aTTYSC_WB FLINK(R3S,R4 : Remove the 
F8B3' 30 O74A 1505 BSB TTYSWRITEPOST 3 Queue it Ls completion 
eB 11 rp 1 $ BRB 10$ 3: Try for next Link. 
74F 615 3 15$: : Stop the current I/Os. 
74F «(15 IF _NOT State - : Branch forward if no read is 
74F 1510 AD, 20$ : currently in progress. 
fe 1511 CLR_STATESS 3; Clear escape bits 
7 131¢ <ESC, e430 
54 58A5 00 0759 151 MOVL UCBSL_IRP(RS) .R4 3; Get address of IRP. 
38 A4 Be 75D «41514 CLRL IRPSL~ HEDIACR Rb} 3; Clear terminators. 
F89D' 30 076 1332 BSBW TTYSREADONE : Complete the read. 
763 «1 1$ 20$: ; Check for a write to complete. 
763 «151 IF _NOT_STATE = :; Branch forward if no write is 
763 «(1 13 ,30$ ; in progress. 
53 0004 CS DO 0767 151 MOVL UCBSL. TT_WRTBUF(RS),R3 ; Get address of write packet. 
7C AS) «BO 076C 1520 MOVW tS te “BOFF(R 3 es ,dtetus code in the 
28 A3 rer 1521 TTY$W7WB_STATUS(R3) F pack 
F88C* 30 44} 1 § 30$ BSBW TTYSURITEDONE 3 aon gs 8 the 1/0. 
bree 1524 ENBINT 
05 0777 1525 RSB 
0778 1526 
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09 48 AS 
00000000" gf 
st tet cr 


0000011 
0000 al GF 
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5 0088 it 
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Of Ag 
00 14 AS ret 
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OR TYPE AHEAD BUFFER FETCH $-§ ets 7 96: 48: 3 YT ToRVR. SRCJ Try YSUB.MAR;2 ae (33) 
yes ~SBTTL FORK TO CHECK FOR TYPEAHEAD BUFFER FETCH 
> GETAHD 


Ll create a typeahead buffer for the user, then insert 


; the character that caused the buffer to be allocated and cause 
; that character to be processed. 


: Inputs: 


Re = Ue abe state VECTOR 
= 
UCBSL_FR3 : OERARACTER THAT CAUSED TYPEAHEAD BUFFER TO BE CREATED 


R1,R4 are Destroyed 
R2, RS are Preserved 


MOVZWL 


UCBSL_TT_TYPAHD(RS) ; ALREADY ALLOCATED? 

oe ; IF NEQ THEN Y 

#TT2$V_ALTYPEAHD : SKIP IF NORMAL SIZE 

UCBSL_ DEVDEPND2(R5) . 728 

geITYSGW_ ALTYPAHD,R1 ; ALLOCATE THE TYPEAHEAD BUFFER 

G*TTY$GW_TYPAHDSZ,R1 ; ALLOCATE THE on YPEAHEAD BUFFER 

#TTYSL : PLUS SPACE F 

G“EXESALONONPAGED + ALLOCATE THe TYPEARERD BUFFER 

R2.R4 + COPY BLOCK ADDR ESS 

RO, 100$ : IF FAILURE THEN TOUGH 

R1,TTYS$W_TA $126 (RQ) : SET UP SIZE 

CRAERT ITTY L_TA_END(R4S; SET UP END POINTER 

#DYNSC_TYPAHD, TTYSB_TA_TYPE(R4); 

TTYSW_TA RCL SIZ(RG ; CLEAR OUT THE RECALL SIZE 

UCB$B~DIPL(R5) : LOCK TERMINAL DATA BASE 

RG uCBSL TT TYPAHD(RS) ; STORE ADDRESS 

UCB$Q_TT"STATE(RS),.R2 : RESTORE THE UNIT STATE VECTOR ADDRESS 

TTVSPORGE AHEAD : SET UP THE BLOCK 

UCBSL_FR TRS) ,TTYSL_TA_DATA(R4); INSERT DATA 

0$ > SKIP INSERT IF NUL 

TTY$L_TA_PUT(R4) : POINT TO NEXT PLACE 

TTY$W~ TA” INAHD(R4) ; AND BUMP THE COUNT 

TTYS$SSTARTOUTPUT BEGIN NEXT STATE 

ATTYSV_FD_GETAHD UCBSL_FA4 (RS) , 908: CLEAN THE BIT OUT AGAIN 
: THEN RETURN 


TT) 
04 


; QUEUE EMP 
; SAVE RETURN ADDRESS 


NVONS 


208 
J G*1OCSINITIATE 
10$: BICW #UCBSM_BSY ,UCBSW_STS(R5) 


20$:  MOVL UCBSL_TL_PHYUCB(RS).R5 


o -—o-0080 - 
Ss & 
Sete Ge Se Ge Se Ge Se & 
ouNasawMYM 
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> 
) 
ar 


; ALLOW NEW OUTPU 
55 OOA0 C5 ; oh BACK TO PUCB 
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y04-001 LINKFORK = RECONNECT LUCB/PUCB -SEP=1 1382 96: 46: 3 YT TORVR. SRCITTYSUB.MAR: 2 . (3) v04 
ze a .SBTTL LINKFORK = RECONNECT LUCB/PUCB 
7E3 1579 ;+ 
ze } LINKFORK = LINK LOGICAL AND PHYSICAL UCB 
ce FUNCTIONAL DESCRIPTION: 
7E3 1584 THIS FORK ROUTINE IS QUEUED TO LINK A PUCB AND LUCB. 
7E 13 5 i HE LUCB ADDRESS TO BE LINKED TO IS CONTAINED IN PUCB 
7E3 1 gi : OFFSET UCBSL_PDT. THIS ROUTINE RESETS BSY IN UCBSW_STS 
ze 13 ; AND RESTARTS PENDING IRP’S IN THE I/O QUEUE. 
7E 12 INPUTS: 
7E3 1590 ; 
O7E3 1591 ; RS = PUCB ADDRESS 
7E 1396 i ; 
7E3 1593 :- 
7E 1594 LINKFORK: 
54 0084 C5 DO O7E3 1595 MOVL  UCBSL_PDT(RS5) ,R4 : GET SPECIFIED LUCB 
0B A4 08 A 90 O7E8 1396 MOVE  UCBSB7FIPL(R5$ ,UCBSB_FIPL(R4) + FORK IPL 
SE AG 65E AS) «90«O7ED. «159 MOVB UCBSB DIPL(R5) .UCB$B-DIPL(R4) > DEVICE IPL 
64 AG 01s BA O7Fe 1398 BICB #UCBSA_TIM,UCB$w_STSTR4) : AND TURN OFF TIMER BIT IN 
48 AS 00020000 BF cB Sire 1600 BISL #TT2SM_DISCONNECT,UCBSL_DEVDEPND2(R5) ; SET DISCONNECT BIT 
O7FE 1601 : BECAUSE WE ARE DISCONNECTA 
46 AG 864 05 DO O7FE 1608 MOVL  UCBSL_DEVDEPEND(R5) ,UCBSL_DEVDEPEND(R4) : MAKE SURE LUCB I 
48 AG «6468 AS ODO 080 1603 MOVL  UCBSLDEVDEPND2(R5).UCBSL~DEVDEPND2(R4) : IMAGE COPY OF PUCB 
00A0 (4 «SS—tsié 0808 1605 MOVL RS, UCBSL It -PHYUCB(R4? ; LINK LUCB TO PUCB 
00co <5 —54—ti«Oi 0D 1606 MOVL RS, *UCBSL-TT-LOGUCB(RS) : LINK BUCB TO LUCB 
0OA0 ¢5 «555.—s«éO 1 160 MOVL DEBSE TTL -PHYUCB(RS) : SHOW PU a 
0084 C4 D4 0817 1608 CLRL Ueésc DT(RE) : RESET REBIND FIELDS 
0084 ¢5 4 18 1609 CLRL —-UCBSL~ ~pOT (RS) : RESET REBIND FIELDS 
CAG 02 «OCA a8 1611 BICL #DEVS$M_DET. UCBSL_DEVCHAR2(R4) ; LUCB NOW NOT DETACHED 
0 §40000 ar 2 161¢ BICL #DEVSM7AVL,- : SHOW PUCB NOT AVALABLE FOR 
38 A5 161 UCBSL_BEVCHAR(RS) 
3c AS 00000100 8F 1614 BISL  #DEVSA_RED, Ucesi “DEVCHAR2(R5) ; SHO PUCB REDIRECTED 
1616 MO ; SWITCH TO Luce CONTEXT 
161 REMQUE SUEBSL_100FL (RS) RS : GET A PACKET OFF QUEUE 
161 
16 
16 
16 
16 
16 
16 
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OC A4_ FCBS CF 
00000000'°GF 00000000' GF 
6C A4 
64 A401 
cs 
08 0088 C 
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F9B7 CF 
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; ++ 
; UNLINKFORK = UNLINK LOGICAL AND PHYSICAL UCB 


; FUNCTIONAL DESCRIPTION: 


THIS FORK ROUTINE IS QUEUED TO ALLOW ANY READS AND WRITE FORKS 
O FINISH PRIOR TO UNLINKING LOGICAL AND PHYSICAL UCBS. 
CURRENTLY QUEUED WRITES ARE COMPLETED WITH SS$ NORMAL. ANY 
CURRENT READ, IS INSERTED AT THE HEAD OF THE 170 QUEUE. THE 
UCB "BUSY" BIT IS SET TO PREVENT ANY NEW I/O FROM STARTING. 


INPUTS: 
R5 = PUCB ADDRESS 


Sa Se Ge Ge Ge Ge Ge Ge Ge Ge Sete 


UNL INKFORK : 

MOVL  UCBSL_TT_LOGUCB( 
MOVAB UCBSQ~TT~STATE(R 
CHECK FOR ANY ACTIVE 1/0 
IF_ST 


z $ 
IF“STATE WRITE, 30% 


AL_UCB ADDRESS 
ADDRESS 


ee 
>a 
tee 
mo 


: THE LUCB IS IDLE, SO WE FORCE BSY TO PREVENT ANY NEW 1/0 FROM 

: BEING STARTED. HIS WILL ALLOW THE LUCB TO BE DETACHED, AND THE 

; PUCB TO BE FREE FOR FUTURE CONNECTS 
BISW #UCBSM_BSY,UCBSW_STS(R4) : FORCE 
CLRL UCBSL_TRP(R4) : SHOW NO I/O ACTIVE 
CLRL UCBSL~TL_PHYUCB(R4) ; AND BREAK LINK TO PUCB 
MOVL  R5,UCB$L~TT_LOGUCB(RS) : AND MAKE PUCB=LUCB 
BISL  #DEVSM_DET,OCBSL_DEVCHAR2(R4) 3 LUCB IS NOW DETACHED 

: INIT TIMER ON LUCB TO INSURE IT DISCONNECTS 

; IF NOONE RECLAIMS IT WITHIN 30 MINUTES 


MOVA TTYSVT_ TIMEOUT ,UCBSL_FPC(R4) ; LOAD VECTOR FOR TIMEOUT ENTRY 
ADDL G*TTYSGL TIMEOUT ,G*ERESGL_ABSTIM,-; AND SET TIMER 

eceet DUETIM(R4) 
B1SB #UCBSA_TIM,UCB$W_STS(R4) ; AND TURN ON TIMER BIT IN LUCB 


If REBINDING STATE, THEN GOTO LINKFORK 
Bescs# X_REC 


ONNECT, = 
UCBSO TY STATECRS) 30S 


BSBW CANCEL_MODEM : ceneet THE MODEM (HANGUP IF 
JSB CANCEL_RESET ; GO RESET PUCB. THIS WILL ALSO 
; MAKE IT AVAILABLE 
RSB 
20$: BRW LINKFORK ; GO LINK PUCB TO REQUESTED LUCB 
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STOP 10 ON PUCB PRIOR TO DISCONNECT 


A 
AG S0s: 
7¢ AS Qi 3 AG MOVZWL #SS$ -NORMAL, UCBSW_BOFF(RS) ; SET THE RETURN STATUS 
FE7B AB BSBW  DISC~STO P19 : stop P CURRE 
06 E AB BBCC 3=._s«s# TT YSV_F Bysy FORCE NEW FORK TO QUEUE BEHIND ALL OTHERS 
09 16 A AD UCBSL Prete $55 
4 : 9 35$ MOVL &#TTY$0_FD Oa fink: R4 ; AND QUEUE THE FORK 
BSBW =s-s TTYSCRE_FORK 
5 6 POPL R4 ; POP OFF TERMINAL FORK CONTROL RETURN PC 
H RSB + AND EXIT 
A ios REQUEUE ANY ACTIVE READ TO THE HEAD OF THE QUEUE 
A " - OSBINT UCB$B_DIPL(RS) ; INTERLOCK WITH DEVICE INTERRUPTS 
53 SB AS DO MOVL  UCBSLIRP(RS) ,R3 : GET IRP OF ACTIVE READ 


INIT READ STATUS FIELDS 
BBSC #UCBSV_TT_TIMO,UCBSW_DEVSTS(R5),50$; RESET ANY TIMED READ STATE 
INSQUE (R3),UCBSL_IOQFL(R4) ; AND PUT AT HEAD OF THE QUEUE 


1668 AS O01 £4 
4C AS =663~—C(C«OOE; 
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CLR_STATE - 
5 <READ,DEL,E ; RESET READ STATE BITS, BUT LEAVE “BSY'' SET 
PROMPT atic NOFLTR,~ 
0 ESC ESC _0,BADES 
0 REFRSH EDITREAD sciPcRe RDVERIFY,- 
08 MULTI ,RECALL OVERSTRIKE EDITING,-. 
8 QUOTING BACKEPACE® ST EAMNORMS 
: 15 45$:  ENBINT 
; AND FULSH L NY W 
4 «(11 BRB 308 AND FULSH COMPLETE ANY WRITES 
7C AS O2CC_ BF 3 o8 18 50$:  MOVZWL ¥#SS$ HANGUP, UCBSW_BOFF (RS) ; SET THE RETURN STATUS 
F717" 30 1 BSBW  TTYSREADONE ; AND COMPLETE THE READ 

11 08 BRB 45$ 
08 
08 
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. -SBTTL FORK TO SEND UNSOLICITED DATA MESSAGE 

UNSOL 

poser tas et 
lL send a message to the job controler indicating that 

unsoliced input has been recieved 


Note: This routine runs in context of the logical UCB. 


Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Se Ge Se Se Se Sete 
> 


al d 
TO SEND 
&B 1 
EB 178s 
EB 5 : 
EB 7 : 
&B 1 
EB 17 0 
fs 17 ; 
EB 17 
EB 1734 : INPUTS: 
EB 1? 5 Re = UNIT Bhace — 
EB 7 : R5 = UCB ADDRES 
EB 17 : OUTPUTS 
EB 17 RS ESTROYED 
EB 1740 R tt PRESERVED 
He 1748 REGISTER USAGE: 
EB 174 R5 = LOGICAL UCB 
OBEB 1266 4 R6 = PHYSICAL UCB 
EB 1746 UNSOL 
0060 8F 88 gee 1309 PUSHR #*M<RS5 : SAVE REGISTERS 
55 00C0 CS DO OBEF 1748 MOVL UCBSL_ 4" “7 oGUCB(RS) , RS +: LOAD LUCB ADDRESS 
56 00A0 C5 D0 BFé 1749 MOVL § UCBSL“TL“PHYUCB(R5).R6 : LOAD PUCB ADDRESS 
54 01 OA ers 1751 MOVZBL #MSG$_TRMUNSOLIC,R4 : SET MESSAGE TYPE 
SC AS 83 FC 1738 TSTW CBSWIREFC(RS) : IF REF COUNT 0 THEN 
OD 13 OBFF 175 BEQL : JOB CONTROLLER 
53 60 AS 00 0901 1754 MOVL UCBSL_AMB(RS),R3 ; GET USER’ S MAILBOX 
33 13 «0905 «1755 BEQL IF € THEN W 
2E 68 Ab 02 Fo t30¢ 1736 BBS #ycesv_ TT_NOTIF ,UCBSW DEISTS(RS) 65 BR ir ALREADY NOTIFIED 
90E 1758 50S: 
53  00000000'GF 00 O90E 1759 MOVL G*TTYS$GL_JOBCTLMB,R3 ADDRESS JOB CONTROLLER MAILBOX 
20 68 A6 «000~—sé#ECOD 315 1760 BBS #UCBSV_J08,UCBSW_ BEVSTS(R6).65$: BR IF NOTIFIED ALREADY 
11. £1 O91A 176 BBC #TT2$V_DISCONNECT SKIP IF UNIT NOT ABLE TO DISCONNECT 
03 48 A6 gic 1763 UCBSL_BEVDEPND (Ré).55$ * 
001D 30 iF 1765 BSBW CLONE_UCB ; GO CREATE LOGICAL UCB 
00000000" GF 1 9 ; 1767 55$:  JSB GrE XE SSNDEVMSG : SEND THE MESSAGE 
F E9 0928 1768 BLBC : IF FAILED THEN LEAVE DATA BASE UNCHANGED 
B3 92B 1769 TSTW tte REFC(RS) : REF C OUNT 0? 
6 3eE 1770 BNEQ $ TE core HEN USER 
68 A6 «001s ABsC930=—s«1777 B1SW #yCBSM_ JOB ,UCBSW -DEVSTS (RO) ; SET NOTIFIED 
4 11 0934 1278 BRB 6 LO0k TO UNSOLICITED DATA 
68 A6 «0046S AB:sC«0986-—s*177 608: BSW suCeSn TT_NOTIF ,UCBSW_ DEVSTS(R6); SET NOTIFIED 
0060 8F 93A 1774 65$: —- POPR <R5 ROS ; RESTO ORE REGISTERS AND SWITCH BACK TO PUCB 
5 3 E 1775 RSB : RETURN TO THE DISPATCHE 
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- Terminal driver miscellaneous subrouti 16-SEP-1984 2:12:17 AX/VMS Macro V04-00 p 4 TTY 
CLONE NEW LOGICAL UCB mites 96:16:13 LTTORVR. SREITTYSUB MAR: 2 — (H) v04 
2 : 138 . +4 -SBTTL CLONE NEW LOGICAL UCB 
2 : 1746 | ; CLONE_UCB 
93F 17 : : Description: 
93F 1783; his routine will clone a logical ucb and cross Link it to the 
93F 1784; sooettied ays teat ucb. The ogical ucb fields are initialized 
2 : \f 5 ; as appropria 
, : Vf § : Inputs: 
3 F 7 : ; R6 = PHYSICAL UCB ADDRESS 
09 F 1791 ; Outputs: 
93F 1538 ; RS = LOGICAL UCB ADDRESS 
2 : 1038 3 R6 = PHYSICAL UCB ADDRESS 
3 F 1796 ; RO-R4 DESTROYED 
93F 1798 CLONE_UCB: 
18 93F 179 PUSHR #*M<R3,R4> 
55 eeceoeee"ee p 399 1900 nov VTSUCB,R5 3 NONE” ESTABL OF TERPLATE UCB ADDRESS 
00000000 ' GF 16 Been 1 6 JSB G*IOCSCLONE_UCB : GO CREATE A ae UCB 
4D 50 =—E9 329 180 BLBC RO,50$ 3; ERROR, SO SKIP ITS USE 
5 é DO 095 1804 MOVL R2.R : GET NEW LUCB ADDRESS 
SC A BS 228 1806 CLRW UCcBSW_ REFC(RS) ; INIT REFERENCE COUNT 
00010000 2 c8 0359 ! 0? BISL Geese sts (Rg) ; MARK THIS LUCB TO BE DELETED ON LAST DEASS 
0004 5 oA CA 38) : % BICL a thy en ; SHOW PUCB NOT AVALABLE FOR USE 
3C A6 00000108 Ae 8F c8 389 ! 12 BISL POEVER. RED, ocase. _DEVCHAR2(R6) ; SHO PUCB REDIRECTED 
971 181 
44 ! 1 3 INIT LUCB FIELDS 
41 AS 41 A6 9 971 1 16 MOVB UCB$B_DEVTYPE (R6) ,UCB$B_DEVTYPE(R5) ; TERMINAL TYPE 
0B AS) «60B A6) «O90 «(0976=«181 MOVB UCBSB~F IPL (RG) ,UCBSB_FIBL (RD) : FORK IPL 
5 AS 3 A6 978 1 MOVB UCBSB_DIPL(R6) ,UCBSB_DIPL(R5) ; DEVICE IPL 
42 A5 42 A6 8B 9 181 MOVW UCB$W~DEVBUFS12(R6) ,OCBSW_DEVBUFSIZ(R5) ; BUFFER SIZE 
44 A5 44 06 0D 9 1820 MOVL ir tte fetta iy ato re ad dale SEE ; DEVICE CHARACTERISTICS 
48 HW 48 ne 98A 1821 MOVL UCBSL_DEVDEPND2(R6) ,UCBSL pEYoePnbecR: é 
SF A SF A 98F 1 § MOVB ucBsB AMOD (R6) ,UCBSB AMOD(R5) ; DEVICE PROTECTION 
4 cs 28 D 994 1 MOVL R -UCBSL_TL_PHYUCB(RS) ; LINK LUCB TO PUCB 
cO C6 D 999 1824 MOVL R5 ,UCBSL_TT_LOGUCB(R6) ; LINK PUCB TO LUCB 
03 (1 99 5 BRB 55$ 
55 76 DO O9A 1 5 205: MOVL R6,R5 ; ERROR, NO LOGICAL UCB CREATED 
1 BA 9A 1 8 $: POPR #*A<R3,R4> 
5 O9A5 1 RSB 
4 1830 
9A6 1831 
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; THE ACTI oat 
: IFA FIMEOU 


INPUTS: 
RS = UCB ADDRESS 


OCCURRED 


; ¢ OUTPUTS: 
RS = UCB ADDRESS 


ATTENTION: 
BSBW 
BBC 


TTYSLOCK 


BSBM RESTAR 
BRW TTY$S oF ARTOUTPUT 

20S: 

CHECK FOR AUTOBAUD AT 600 BAUD TIMEOUT 
IF NOT STATE | AUTOP 50$ 
movZBW~ att C_BAUD. 9600, - 


MOVB 
BSBW 


RSB 


TTYSSET_CIN 


SSNS SSID DDD DDD DDD MTU SB PPP LEE 
MEI = OS ONAN E WI O OO NA NEW — OOONOUS 
ee 


, ? ACTUAL HARDWARE TIMEOUT 
7 e 

77 508: 
7 


INCW UCB$W_ERRCNT(RS) 
MOVZWL #SS$_ TIMEOUT 
ucBs@ “BOF F (RS) 
60$: 
IF NOT STATE = 
RITE, 70$ 
BSBW YSABORT 
VL yeBsee rt WRT UF (RS) ,R3 
UCBsu-B0 (R 
TTY$W7WB STATUSRS) 
TTYSWRITEDON 


w$Ep-1986 99:56:12 EPTDmuR. SREP TYSUB RAR; 2 


«SBTTL ATTENTION = UNIT TIMEOUT, POWERFAIL ATTENTION ROUTINE 


S 
#UCBSV_POWER,UCBSW_STS(R5), 


C _SPEED (R5) 
UCB$B-TT rDEBARICRS), ucasé BT PARITY (RS) 


row 5 


p++ 
; ATTENTION = UNIT TIMEOUT, POWERFAIL ATTENTION ROUTINE 


; THIS Boyt IM IS ENTERED VIA THE UCBSL_FPC ON POWERFAIL OR TIMEOUT. 
TO 4 He my THE 1/0 IF TRE POWER FAILED AND TO CANCEL IT 


; ATTENTION INTERRUPT 


IPL AND REGISTERS 
O$; CANCEL IF NOT POWERFAIL 


: ; POWER FAILED WHILE THIS UNIT WAS WAITING FOR AN INTERRUPT. 


tart in progress 1/0. 
IN THE 1/0 AGAIN 


SKIP IF NOT 


SET 9600 BAUD 

; RESET THE PARITY 
ON LINE, 

SINCE TIMER EXPIRED 


Handle timeout. 


; BUMP ERROR COUNTER 


Load status code into the 
UCB status word. 


Branch forward if not in a 
write state 

Abort any output getivigy 
Get address write buffer 
seve status in the write 


acket. 
hes this write. 


~ 
a4 
lt 


H 12 
TTYS - Terminal driver misce Lenesoys subrouti 1 4 AX/VMS v04-00 Page 46 
yous061 ATTENTION = UNIT TIMEGUTS POUERFAIE ATE SegePeione Socshc1> EATORWE. eaeseTyede gar: 2 ve 8) 
9&6 189 
a8 1 39 70$: 3; Check for a read. 
434 ! 3 IF NOT ~Stare 30s : Branch ferverd if not reading. 
3A 34 CLR_STATE = spews: ; Clear escape states. 
54 38 DO oF 1 $8 MOV Geas TRPCRS) RG : GET CURRENT PACKET 
ps F4 189 CLRL IRPSLMEDIAC(RS) : SET NO TERMINATORS 
F606" 30 O9F7 1 38 BSBW TTY$READONE + COMPLETE READ 
SFA 1899 80S: 
05 O9FA 1900 RSB 
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THING ON pabcaett wSEp=1986 99:36:13 EMoRvR.sReatrvsuacmar:2 "29 ($3) 
- -SBTTL RESTART = RESTART EVERYTHING ON POWERFAIL 

: RESTART 

; Description: 


pe 
De 
45 
mz 
<_—. 
mwa 
mo 


: r fail recovery code. Called by the etete dispatcher when 
: 8 ponte ial is detected by the port oe he tnit oautt nee. : - 


r = UNIT state vector 
R5 = UCB address 


ESTART 
BICw  § #UCBSM_POWER,UCB W. STS(RS); RESET POWERFAIL 
MOVAB UCB$Q_TT STATE(RS)-R2 ; ADDRESS STATE VECTOR 
BSBW =: TTYS$ABorT + ABORT PORT ACTIVITY 
BSBW TTYSRESUME + AND THEN RESUME PORT Activity 
CLR_STATE POWER : RESET POWER FAIL STAT 
SETSTATE REFRSH : FORCE READS TO BE REFRESHED 
J TTYSRESTARTIO : SET UP THE CURRENT I/0 


NAW E WN (OOO NA NEU" OODNOUS UMN Pc 
*@e 


mee a a a at ot a tt tt 
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TTYS = Terminal driver miscellaneous subrouti 16-SEP-1984 02:12:1 AX/VMS Macro Vv04-00 Page TTY 
yous001 TTY OUERACT ION - PORT ENTRY FOR POWERFA 7- att 96:16:13 ET TORVR. SREITTYSUB_MAR:2 . (48) vO4 
Ai } : -SBTTL TTYSPOWERACTION = PORT ENTRY FOR POWERFAIL RECOVERY ACTION 
al > TTYSPOWERACTION 
“e } : $ Description: 
Al 1 § : Called by the port driver's unit-init routine when a powerfail is 
Al 1 3 Covec ted. This routine will clear she interupt expec tee bit and setup 
Al 1 3 3a } mer to call us back eur na the first pees of the timer survice routine. 
Al 1939 ; This routine also et the POWER bit in the unit state vector to perform 
A) 132 3; powerfail recovery if the timer is reset by a burst or character output. 
Al 134 : Inputs: 
a W308 : RS = UCB address 
~ 1308 : Outputs: 
Al 1393 ; ALL registers are preserved 
RUBE 
Al 198t TTYSPOWERACTION:: 
64 AS 2 Al 1326 BICW #UCBSM_INT,UCBSW_STS(R5) 
AS 1 A19 195 BISW #UCBSM_TIM,UCBSW_STS(R5) 
6C AS D4 OAID 1954 CLRL UCBSL_BUETIM(R 
0088 C5 01 3 is 1986 ISL #TTYSA_ST_POWER,UCB$Q_TT_STATE(RS) 
A26 195 


vO4=001 


K 12 
- Terminal driver miscellaneou AA. Pe 1 “$ pe AX/VMS Macro Vv04 
CLASS DRIVER JACKET INTERFACE fo PORT DOR ety 96: 43: 13 TTDRVR. tat ate MAR; 2 
5 -SBTTL CLASS DRIVER JACKET INTERFACE TO PORT DRIVERS 


; FUNCTIONAL DESCRIPTION: 


These routines are the only place in the driver that the terminal 
; port driver is actually called. These routines allow the terminal class 
; driver to add code that would have been duplicated in every port driver. 


: Inputs to all routines: 
: RS - ucb address 
T 


; TTYSABORT - Abort current output activity 


TYSABORT: : 

88 PUSHR #*M<RO> ; SAVE A REGISTER 

E gi tySv_ ST_CTRLS,UCBSQ_ TT _STATE(RS) ,= ; ALLOW CLASS OUTPUT 
5$: 

dO MOVL UCBSL_TT_PORT(RS) ,RO ; GET THE ADDRESS OF THE PORT 

16 js enon ae BORT (RO) 3 GOTO THE ROUTINE 

BS RSB ; and return 


ht tt ot tt es I 
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TTYS - Terminal driver miscellaneous subrouti 16-SEP-1984 02:12:1 AX/VMS Macro v04-00 Page 5 TTY 
yous001 CLASS DRIVER JACKET INTERFACE TO'PORT BR “Sesepaione Soses1s FA OMUS Bacto VOR OO ee2 oe 28) v04 
A 1 3 
- a 3 TTYSDISCONNECT = Indicates last deassign. 
A39 (1991 ; INPUTS: 
A 133 : 
" ! a 3 RS = UCB address 
A 1938 frysisconnect:: 
02 A391 % PUSHR  #* MeR1> : SAVE A REGISTER 
51 0118 ¢5 DO OA3B 199 MOVL UCB$L_TT_PORT(RS) ,R1 : GET THE ADDRESS OF THE PORT 
4 Bi 16 OA40 1 38 JSB aPORT “DISCONNEC T( (Rt 1) + GOTO THE ROUTINE 
2 BA Ad 9 POPR #*M<RT> 
5 OA4 BY RSB 3; and return 
Ad 


Moe 


cella 
NTERFA 


INPUTS: 


R2 = 


OUTPUTS: 
Ri - 


TYSDS_SET:: 


Ly ote SIGNALS TO A 


HIGH BY 


RS = UCB ADDRESS 


R3 ARE USED 


- SIGNALS TO 


TTYSDS_SET = SET OUTPUT MODEM SIGNALS 


m1 
Ree $CSEPCTORS 99:19:13 UTTORUR. SRESPTYSUB-MAR: 2 


SAVE A REGISTER 
GET THE ADDRESS OF THE PORT 
GOTO THE ROUTINE 


and return 


< 


ate 
ys = Terminal driver miscellaneous subro 1 1 :1 AX/VMS Ma v04-00 Pp TTY 
42001 CLASS DRIVER JACKET INTERFACE TOPORT OR SaSEPoTonG SF:ehs13 FA RANMS Sacre VOE OO nso | PaMe (38, vO4 
A 3 
A ; TTYSMAINT = MAINTNENCE ROUTINES 
A TTYSMAINT 
02 A g PUSHR #*M<R1> : SAVE A REGISTER 
51 0118 C p A MOVL  UCBSL_TT_PORT (R5), Rl : GET THE ADDRESS OF THE PORT 
3 61 ASA : JSB @PORT-MAINT(R : GOTO THE ROUTINE 
2 BA Aad POPR #*M<RT> 
5 OASF 0 8 3; and return 
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B 13 
inal driver miscellaneous subrouti 16-SEP-1 21 cro V04-00 Page 53 
DRIVER JACKET INTERFACE TO PORT DR $- Hiatt 6: 46: 13 Yt5 R.S REIT TYSUB.MAR;2 . (44) 
A 3 
" § ; TTYSRESUME = CONTINUE OUTPUT ON A LINE 
A 5 TTYSRESUME:: 
A § PUSHR #*M<RO> AVE A meStsTeR 
re #TTYSV_ST_CTSLOW,UCBSO_ tt =STATEGAUnD) ORF cha TO SEND IS LOW 
re 33 BBCC giTySv. ST_CTRLS,UCB$OQ_TT Pe ; ALLOW CLASS OUTPUT 
A6E 41 5$: 
i ts MOVL UCBSL_TT_PORT(R a7 ome ; GET THE ADDRESS OF THE PORT 
A 8 JSB @PORT_ RESUME (RO) ; GOTO THE ROUTINE 
A7 44 10$: POPR #*M<RO> 
A7 045 RSB 3 and return 


ey 
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trys - Terminal driver misce us subrouti 16- 4 AX/VMS Macro v04-00 Page 54 TT! 
L VER JACK <5 DRVR.S ~MAR; (45) 
bu 2081 CLASS DRIVER JACKET INTERFACE 10 PORT DR B= 1382 96: 46: 13 TTORVR. SREITTYSUB 2 ras vo. 
a 47 F Ponti = SET SPEED AND PARITY 
A? : IMPLICIT INPUTS: 
A? : UCB$B_TT_PARITY = CONTAINS aniTy STOP BIT AND FRAME SIZE INFO 
ay : Mati TTSPEED = LOW BY eX MIT SPEED 
A ; HIGH BYTE ZERO OR RECIEVE SPEED 
Are 33 ; UCBSB_TT_PRTCTL = DMA AND AUTOXON ENABLE FLAGS 
A79 2055 TTYSSET_LINE:: 
01 BB OA79 26 PUSHR #*M<RO> ; SAVE A REGISTER 
50 0118 C5 DO OA7B 205 UCBSL_TT_PORT(RS),RO |: GET THE ADDRESS OF THE PORT 
08 B80 16 Ag 058 JSB @PORT-SET_LINE (ROS : GOTO THE ROUTINE 
01 BA OA 5 POPR #*M<RO> 
0S OA8S 2060 RSB ; and return 
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= Terminal driver miscellane subrouti 16-SEP=-1 1 AX/VMS v04-00 Page 55 
CLASS DRIVER JACKET Mitta PORT DR ~3E5- 1382 96: 46: 13 YT ORVR. Try YSUB.MAR;2 . (46) 
“ $6 ; TTYSSET_MODEM = START MODEM POLLING 
A : ; RO = R4 USED 
A ¢9 TTYSSET_nopen: #7McRO> ; SAVE A REGISTER 
Bp A 3 oe MOVL UCBSL_TT_PORT(R5) ,RO : GET THE ADDRESS OF THE PORT 
16 QA8D 8 JSB pod “SET_MODEM(RO) 3; GOTO THE ROUTINE 
BA A38 0 POPR #*M<RO> 
05 OA9 071 RSB 3; and return 
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TTYSUB - Terminal driver miscellan Hy 9: 1g: 13 yorlyes Se Macro V04-00 Page 5 
v04-001 CLASS DRIVER JACKET INTERFACE TO PORT DR 7=SEP-1984 17:5 TTDRVR.SRC Try YSUB.MAR:2 (4 
ng i) 3 TTYSSTOP = STOP OUTPUT TO THE TERMINAL LINE 

ry 75 fty$sToP:: 
01 88 Ag i PUSHR g*RCRO> | ; SAVE A REGISTER 
01 €E2 OA9 7 BBSS #TTY$V_ST_CTRLS,- 
00 0088 C5 Ay? A: . UCBSQ_ Ve? SFATECRS) ,5S : BLOCK NEW OUTPUT 
50 0118 CS pO OA  Paer MOVL  UCBSL_TT_PORT(RS).RO  ; GET THE ADDRESS OF THE PORT 

18 80 16 OAA 1 JSB aPORT-STOP(RO) + GOTO THE ROUTINE 

01 BA OAA : POPR #*M<RO> 
05 OAA RSB : and return 
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river miscellaneous subrouti 16-SEP-1984 02:12:1 ‘AX/VMS v04-00 Page 57 TT' 
JACKET INTERFACE TO PORT D , '$: 4 =1382 96:16: 3 YT ORVA.€ R. SREITTYSUB. MAR; 2 9 (29) vou 
5 
§ : TTYSXOFF - CALCULATE CHARACTER TO SEND FOR XOFF AND SEND IT TO THE PORT 

: TTYSXON = SAME AS XOFF FOR XON FLOW CONTROL. 

“ENABLE LS 

TTYSXOFF:: 

PUSHR #*M<R1,R3> : SAVE REGISTERS 

9 MOVZBL #TTYSC_XOFF,R3 USE XOFF 
9 BBC TTY$V~SX_TYPFUL,- 
9 UCB$Q_TT STATE(RS) SKIP IF NOT TYPEAHEAD FULL 
34 BBs aTTSVWOSTSMNE -UcBSL. SevbESEND (hS)” 10$ ; XOFF CORRECT 
%6 UCBS$Q "t ASTATECRS) 20$ ; SKIP IF PASSALL MODE 
9 MOVZBL any $t_8 ; USE BELL CHARACTE 
98 10$:  MOVL CBSL_ 1% “PORT RS), R1 : GET THE ADDRESS OF THE PORT VECTOR 
99 JSB SeORT x0 OFF ; 
100 20$ POPR #*M<RT,R3> 
1 RSB 
1 § 308 BITL  #TTS$M_HOSTSYNC! TTSM_READSYNC 
104 UCBSL-DEVDEPEND(R5)~  ; HOST OR READ SYNC TERMINAL? 
105 BNEQ 10$ : YES THEN OUTPUT THE CHARACTER 
19 BRB 20$ : NO, SKIP OUTPUT 
135 TTYSXON:: 
10 PUSHR #*M<R1 -R3> 
110 MOVZBL aTTYSC END XON 
111 BITL TSM CABS TS TNC ITSM. READEYNC = 
118 Shs Ucest DEVDEPEND(R5)~ =; HOST ook pREAD SYNC TERMINAL? 
114 MOVL  UCBSL_TT PORT(RS), R1 : ef ohe P ADDRESS OF THE PORT VECTOR 
115 JSB @PORT-~XON(R : 
116 BRB 20$ : GO BACK AND RETURN 
117 .DISABLE LSB 
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AE 1 .SBTTL MODEM ROUTINES 
AEF 2101 ; MODEM CONTROL DATA AREA 
AEF 21 
AEE 515% 
AEF 2125 TTSL_DIALUP:: ;ROOT OF MODEM TIMER CRB LIST 
— AF i $ TT$wW “werent: ¥ 
0000 OAF3 21 8 dD 0 :COUNT OF TIMERS IN USE 
AFS 2129 TTSwW_ TIME TRE 
0000 OAFS 21 0 <WORD 0 :FLAG WORD 
AP 54 
AF? 21 5 ALIGN QUAD 
AFB 2134 TTSTIMQUENT: i TIMER QUE ENTRY FOR MODEM TIMER 
00000828 OAF8 2135 LKB  TQESC_LENGTH LOCATE BLOCK HERE 
0B 1 6 §10_TQE TOE SW “SIZE ,WORD, TQESC_LENGTH rrsi nave 
08 1 STO-TQE TQE$B-TYPE BYTE .DYNSC TOE, TTSTIMQUEN ie 
08 8 STO-TQE TQESB-RQTYPE BYTE, TOESC_SSREPT, TTSTIMQUENT 
0B 140 
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B + +4 
TRANSITION_NOCHECK = process transition element without the Geycepend bit cc heck 
T N - ROCESS ee by ELEMENTS ON MODEM/TIMER STATUS EVENT 
; PORT_TRANSITION = PROCESSES PORT CALLS THEN FALLS INTO TRANSITION 
; FUNCTIONAL DESCRIPTION: 
; THIS ROUTINE IS GALES ON ALL MODEM TRANSITIONS SUCH AS MODEM SIGNAL CHANGES, 
TIMER EXPIRATIONS AND CONTROL. THE TRANSITION ELEMENTS CONTAINED IN THE 
STATE TABLE ASSOCIATED WITH THE CURRENT STATE ARE SCANNED. if A MATCH IS 
FOUND, THEN A NEW STATE IS DECLARED. UPON DECLARING A NEW STATE, 
OUTPUT MODEM SIGNALS MAY BE SET OR RESET, TIMERS MAY BE STARTED OR 
CANCELLED AND ACTION ROUTINES MAY BE INVOKED. 


PORT_TRANSITION 
THIS ROUTINE PRE-PROCESSES THE wh FROM THE PORT DRIVERS 

TO SCREEN OUT CALLS TO MODEM INIT WITH REF=COUNT NON-ZERO AND CHANGE 

; seose anstt fone NTO SHUTDOWN CALLS. ALL INPUTS AND OUTPUTS ARE THE SAME 


INPUTS: 


R1 = TRANSITION TYPE 
R2 = TYPE SPECIFIC ARGUMENT 

DATASET = NEW RCV MODEM MASK 
R UCB ADDRESS 


: 
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: 
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CONIA ANEW 2 9 OD NAME UID @ OOO NAME WIN  S OD NA NEW 3 9 OOD NAU EU O OO NONE UP 


ttt titi ttddtddddddddoddotddtt ttt 
m AWE NNMROM EO ONE 10 DW 09090906900 09 60 G9 G9 0D CD 0D CD C9 0D 0D CD CD. C9 C9 C9 09.09 0909 0D. 09 G0 00.00 0DCD 
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; OUTPUTS: 
: RO-R4 DESTROYED 
BORT_TRANSITION: : 
51 00 01 CMPL #MODENSC INIT. RI ; IS THIS AN INIT? 
OF 12 BNEG TRA ; NO THEN DON'T INTERPRET 
53 00c0 C5 06 MOVL ucBsL ~ LOGUCB(RS), R3 ; GET THE LOGICAL UCB ADDRESS 
08 1 BEQL =sdTR N ; NO LOGICAL THEN EXIT 
SC AS) BS TSTH —-UCBSU.REFC(R3) ; ANY REFCOUNT IN_ LOGICAL 
03 13 BEQL RANSTTION ; NO THEN INIT THE LINE 
51 01 9A TRANSITION ViBL #RODERSC _SHUTDWN,R1 ; ELSE SHUT IT DOWN 
0126 (5) BS TSTW  UCBSW_TT_DS_ST(R5) ; 1S MODEM STATE IDLE? 
05 12 084 BNEQ TRANST 10N_ROCHECK NO, SQ ALLOW CLEANUP TO FINISH 
474405 15 €1 084 BBC #TT$ V_MODER. UCBSL_DEVDEPEND(RS) END; DON'T BOTHER IF NOT MODER 
4 TRANSITION NOCHECK: : 
53 Q0000D7B'EF DE 084 MOJAL STATE_INIT+MODEMSC_ST_LENGTH,R3 ;ROOT OF STATE TABLE + OFFSET 
54 126 c ¢ b MOVZWL UCBSW"TT_DS_ST(R5) 7R4~ 
4 C 3 ADDL 
; ‘ale CASE ; TYPE=B,<INIT, SHUTDWN, TRAN_LOOP, TRAN_LOOP, TRAN_LOOP> 
91 3 $4 BSBW HODERSL INK CRB ;LINK INTO CRB CHAIN 
52 00000007" SF p 7 219 MOVL #IDLE-STATE_INIT,R2 
00 ; 3 Sb R DECLARE_STATE ;INIT MODEM CONTROL 
52 00000086 "8 R0 71 219 VL #SHUTDOWN-STATE_INIT,R2 :DECLARE SHUTDOWN STATE 
082 ‘8 ? ol voor DECLARE_STATE ; TRANSITION TO NEW STATE 
53 64 9A 0B7B 219 : MOVZBL R3 {GET TRANSITION ELEMENT TYPE 
9 CAS RS. Ties B,<DATASET, TIME ,END ,DIALTYPE D211 ,NOMODEM> 
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1 ;DISPATCH TO TRANSITION SERVICE 


END: ;LAST TRANSITION FOR STATE 


~~ 
— 
= 
m 
oe 


; TIMEOUT TRANSITION ELEMENT TYPE 

CMPB #MODEMSC_TIMER,R1 TIMEOUT TRANSITION CALL 
NEXT_TRAN NO PROCESS NEXT ELEMENT 

BRW NEW_STATE : 


51 4 


91 
Zo 
0062 4 DECLARE NEW STATE 


MOVL C 5),R1 :GET CRB ADDRESS 
CMPB sé CRBSB tT TYPE(R1) ,#DT$_DZ11 31S CONTROLLER A D211? 


BBS #TTSV_MODEM,UCBSL_DEVDEPEND(RS) ,~ 
BRW NEW_STATE iL1 


BRB = NEXT_TRAN 


MODEM LINE, CONTINUE 
NE NO LONGER MODEM 


NEXT_TRAN: ;LOOK AT NEXT TRANSITION ELEMENT 
ADDL § #MODEMSC_TRAN_LENGTH,R4 ;POINT TO NEXT ELEMENT 
BR TRAN_LOOP 


1 . 
11 BATASET: :DATASET TRANSITION ELEMENT TYPE 
51 0 1 CMPB =. HMODEMSC_DATASET,R1 :MODEM INTERRUPT? 
9 1 BNEQ 198 :NO , DONT UPDATE STATUS 
0124 CS san MOVB R2,UCB$B_TT_DS_RCV(RS) [UPDATE STATUS 
52 0124 C 1 MOVZBL UCB$B_TT_DS_RCV(RS),R2 3GET CURRENT STATUS 
5 A ist MODEMSB_TRAR_ONMASK(R4) :MASK ACTIVE 
53 OSA 1 MCOMB DEMSB_TRAN_ONMASK(R4) ,R3 [GET COMPLEMENT OF MASK 
52. 5 BICB = R3,,R SISOLATE BITS OF INTEREST 
52 OS A XORB § MODEMSB_TRAN_ONMASK(R4) ,R2 sTEST IF BOTH ON 
1 mn BEQL 208 YES 
52 0134 C MOVZBL UCB$B_TT_DS_RCV(RS),R2 :GET CURRENT STATUS 
4 Ad 9 : TSTB MODEMSB TRAR_OFFMASK (RA) MASK ACTIVE 
52 046 A4 9 ¢ BITS | MODEMSB_TRAN_OFFMASK(R4) ,R2 :TEST SIGNALS OFF CASE 
93 1 ¢ BEQL 208 [YES OFF, DECLARE NEW STATE 
0028 «3 ¢ i BRW NEXT_TRAN 
0028 «31 cB BRW NEW_STATE ZENTER NEW STATE 
BCE ; 
BCE DIALTYPE: 
BCE BIT MODEM$B_TRAN_ONMASK(R4),- :CHECK FOR MATCH 
BD G*TTY$GB_DIALTYP 
BG BEQL $NEXT_TRAN :NO MATCH 
BD BRW NEW _STATE sENTER NEW STATE 
BDB D711: 
4 
4 
4 
4 
4 
4 
4 
4 
4 
: 
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F pee 
r 3 ; DECLARE STATE = DECLARE NEW STATE 
F : FUNCTIONAL DESCRIPTION: 
F : THIS ROUTINE I$ USED TO DECLARE A NEW MODEM STATE. IT HANDLES STARTING 
F 64 ; OR CANCELLING TIMERS, SETTING NEW MODEM OUTPUT SIGNALS (VIA THE PORT) 
Bry 5 ; AND INVOKING ACTION ROUTINES. 
f § > INPUTS: 
F § : Re = NEW STATE BEING DECLARED 
/ oY : R5 = UCB ADDRESS 
F9 i : OUTPUTS: 
re 3 : RO-R4 DESTROYED 
F9 2075 NEW_STATE: ZALTERNATE ENTRY FOR CHANGING 
F9 A: ‘STATE FOR TRANSITION ELEMENT 
52 02 a4 3¢ r9 , MOVZWL MODEMSW_TRAN_NSTATE(R4) ,R2 [GET OFFSET TO NEXT STATE 
FD 8 DECLARE_STATE: 
0126 CS. 52 BO OBF 0 MOVW Sate TT_DS_ST(RS) sSET NEW STATE 
54 00009075" EF DE C ; 1 MOVAL Re ue T,R4 +ROOT oF STATE TABLE 
4 ¢ : ADDL. R [POINT TO STATE ENTRY 
02 A ¢ ¢ MOVZWL nSberey ST_TIMER(R4) ,R2 [GET TIMER VALUE 
023 C1 4 BSBW  MODEM_TIMER SSET NEW TIMER OR 
C1 5 :CANCEL PREVIOUS IF ZERO 
52 64 3C 0C1 : MOVZWL MODEMSB_ST_ONMASK(R4) ,R2 :GET SET SIGNAL MASK 
C16 ‘TURN Low BYTE ON,HIGH BYTE OFF 
03 «13 C16 8 BEQL SSS FIELDS 
FE2B 630 c18 89 he BSBW  TTYS$DS_SET SET “NEW MODEM SIGNAL (S) 
52.04 ad 32 c1B 31 : cVTML MODEMSW_ST_ROUTINE(R4) ,R2 :ACTION ROUTINE PRESENT? 
50 00000075" EF oF C21 38 MOVAL STATE INIT,RO : 
52. 50 CO 0C28 229% ADDL : COMPUTE ADDRESS OF ACTION ROUTINE 
62 16 OC2B 2295 JSB ass : INVOKE ACTION ROUTIN 
03 50 €9 ¢ ; ie BLBC ROS 15$ > SPECIAL TRANSITION TYPE IF ERROR 
51 02 v0 OC 98 "MOVE «= s #MODEMS$C_NULL,R1 
FFI? «310 99 15$:  BRW TRANS I TION_NOCHECK DECLARE NULL ATRANSITION IN NEW STAT 
C36 0 ;(TO PROCESS ANY PRESET 
rf 6 1 : MODEM STQNALS) 
Hb Bah 
C36 


ee |_|...) 
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C 5 34+ 
c § : MODEM_TIMER = SET/RESET MASTER MODEM TIMER ROUTINE 
c 8 ; FUNCTIONAL DESCRIPTION: 
¢ : THIS ROUTINE STARTS OR CANCELS A MODEM PROTECOL TIMER FOR A LINE. 
¢ 11 ; ONE TQE IS USED TO TIME ALL ACTIVE LINES. THE TQE ONLY REMAINS ACTIVE 
¢ 12 ; SO LONG AS AT LEAST ONE TIMER IS NEEDED. SUBSEQUENT TIMERS USE THE 
¢ 13 ; SAME TQE. WHEN ALL CURRENT TIMERS EXPIRE THE TQE IS REMOVED FROM 
¢ 14 ; THE SYSTEM TIMER QUEUE UNTIL NEEDED AGAIN. 
C 15 ; SINCE TIMERS ARE ONLY NEEDED DURING TRANSITIONS, THIS IS A LOW OVERHEAD 
¢ 16 : ACTIVITY. 
¢ 18 ! INPUTS: 
¢ 9 : R2 = NEW TIMEOUT VALUE OR 0 TO CANCEL ANY OUTSTANDING 
¢ ; R5 = UCB ADDRESS 
¢ § + OUTPUTS: | 
¢ 4 ; RO-R3 DESTROYED 
C $ MODEM_TIMER: 
54 pd OC PUSHL R4 
54 24 a5 00 OC : MOVL UCBSL_CRB(RS) ,R4 :CRB ADDRESS 
52S (OC3C TSTL = CANCEL? 
75 (1 cs 0 BEQL TIMER_CANCEL YES 
C4 3 :NEED TO INIT TIMER FOR LINE 
0128 cS) «BS (C4 tSTw CB$W_TT_DS_TIM(R5) ; ANY CURRENT TIMER ACTIVE 
12 0C4 4 BNEQ 4 : YES THEN JUST CHANGE THE TIME 
1F AG (96 OC46 5 INCB CRB$B_TT_TIMREFC(R4) : BUMP THE REFCOUNT IN THE CRB 
FEAG cf B6 0C49 : INCW  TT$W_REFCNT “BUMP IN USE COUNTER 
0128 ¢ 2 B80 C4 ; 5$ MOVW R2,UCBSW_TT_DS_TIM(RS) ;SET TIME TO WAIT 
FESE CF «01s AA 38 § BICW  #TIMCTRLSM_CANCEL,TTSW_TIMCTRL ;RESET ANY CANCEL REQUEST 
02 FESS CF ot Fl C3? 40 BBC #TINCTRESVCACTIVE, TTSW_TIMCTRL, 108 ;TIMER NOT CURRENTLY ACTIVE 
CSF 4g 10S: - :NEED TO RESTART TIMER 
55 DD OCSF 234 PUSHL 5 TSAVE UCB ADDRESS 
55 FE93 CF DE C61 2344 MOVAL TTSTIMQUENT,RS ; 
0B AS 06 90 0666 2345 VB #IPLS_QUEUEAST , TOESB_ROTYPE (RS) 'SET UP FORK IPL 
00000C72"EF  9F CoA 46 PUSHAB “ $ SRETURN ADDRESS 
OA 11 C7 4 B 0$ TQUEUE FORK 
55 BEDO 0C7 49 20$:  POPL RS ;RESTORE UCB ADDRESS 
FE7B CF 02 A8 0C7 BISW #TIMCTRLSM_ACTIVE,TTSW_TIMCTRL :SHOW TIMER ACTIVE 
1 co : oa BRB TIMER_END 
00000000'GF 16 0C7 = - se G*EXESFORK 
¢ ; 38 DSBINT bipes SYNCH sINTERLOCK TO ENTER TIMER ENTRY 
gc AS OCDS'CE 9E OC 5 MOVAI WeTTSTINER TOESL_FPC(RS) [SET TIMEOUT ROUT INE ADDRESS 
20 A 004484 oF 0 ¢ é 36 MOVL #5000000, TOES DELTA(RS) [SET REPEAT AMOUNT (SOOMS) 
A 5 ¢ 5 MOVE #TQE$C_SSREPT TOESS ROT YPECRS) :SET REPEATING TYPE 
50 ‘GF 7D OC9A 38 MOVa gre S50 SySTine.R ‘CURRENT SYSTEM TIME 
50 capa er 3 cal ADDL #5 ab O7RO ; TIMEOUT DUE IN 500MS 
00000000" er ? CAB 8 JSB G*EXESINSTIMO S INSERT IN TIMER QUEUE 


M13 
vr ataceltancou wbrons UCHR IS OIE:TE EMGEUE MESH DSathans Mh 


ith 
¢B1 ENBINT sRESTORE IPL 
05 3 § RSB 
cB 5 TIMER_CANCEL: 
0128 ¢5 8 cB § TSTW Yr gee TTBS TIACRS) i IS_THE TIMER 
og CB9 BEQL $ ; ACTIVE NO THEN gt 
O19? C 8 C88 8 CLRW UCB$W_TT_DS_TIM(RS5) sRESET TO INDICATE IDLE 
F AG ? QCBE DECB 3 hn TT’ TIMREFC(R4) ; DECREMENT THE REF COUNTS 
FE2D CF 6B? ecg ny 20$ DECW TT$W_REFCNT 
FE29 fF BS OCC ie TSTW TT$W_REFCNT sANY ACTIVE TIMERS? 
5 le +3 iS BNEQ TIMER_END :YES 
ccc 75 NO ACTIVE TIMERS SO, 
335 u8 TIMER NEEDS TO BE CANCELLED 
FE24 CF 8601 AB 33. 4 BISW #TIMCTRLSM_CANCEL,TTSW_TIMCTRL ;REQUEST TIMER CANCEL 
CDi Q TIMER_END: 
54 8EDO OCD1 31 ~ POPL R4 
05 OCD4 388 RSB 
OcDS 
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CD 5 ;++ 
cb : ; TTSTIMER - TIMER INTERRUPT ROUTINE 
cD 8 : FUNCTIONAL DESCRIPTION: 
CD 0 : THIS ROUT INE Is INVOKED UPON THE EXPIRATION OF THE MODEM PROTECOL TQE. 
CD 91 ; IT COUNTS DOWN ACTIVE TIMERS AND INVOKES THE TRANSITION 
CD 92 : ROUTINE FOR ANY. tines THAT HAVE TIMED OUT. THE ROUTINE REQUEUES THE 
CD 93 ; TQE Into THE SYSTER TIMER QUEUE UNLESS ALL ACTIVE TIMERS HAVE 
CD 94 ; EXPIRED. 
a) 95 ; 
CD 36 + INPUTS: 
CD 97 ; 
cD 38 : RS =  -TQE ADDRESS 
CD5 34 0 : OUTPUTS: 
cD 4 ; RO-R4 DESTROYED 
Oc 498 fTSTIMER: 
20 BB OCD5 2404 PUSHR #*M<RS> 
54 FEIG CF DE Ocv7 409 a MOVAL TTSL_DIALUP,R4 :GET ROOT OF CRB LIST 
54 64 09 OCDC 409 “MOVE = (RG), RG 7GET NEXT CRB ADDRESS 
52. 13 «OCDE 408 BEQL 60% “PROCESS LINES FOR CRB 
0B AS «695s OCE1 «2409 TSTB §CRBSB_TT_TIMREFC-CRBSL_TT_MODEM(R4); ANY TIMER oN THIS LINE? 
F613 OcEs 410 BEQL = 10$ : NO THEN EXIT 
cE6 41g : TIMERS ARE ACTIVE ON THIS CONTROLER 
54 DD cE 414 PUSHL 4 :SAVE TIMER THREAD 
54 C<(K‘ CCD ces 415 SUBL  #CRBSL_TT_MODEM,R4 :GET ACTUAL CRB ADDRESS 
CEB 2417 ;PROCESS LINES WITH ACTIVE TI MER $ 
53 3¢ 20 CEB 418 MOVL CRBSL_INTD+VECSL {DB (RA ),R3 :GEr ADRESS OF IDB 
52k ¢ CEF 241 MOV ZWL IDBSU7 “UNITS(R3) R NUMBER OF UNITS 
n) i 4 0 oe Gc : ON THIS CONTROLER CHERO BASED) 
55 18 A342 09 CF5 34 ; "MOVE JDBSL_ UCBLST(R3)CR2],R5 :GET UCB FOR THAT LINE | 
1 13 OCFA 24 BEQL 5$ NO UNIT THEN GO ON TO THE NEXT 
cre 424 DSBINT UCB$B_DIPL(RS) F INTERLOCK WITH Sevice. INTERRUPTS 
0128 cS) «BS OOD 425 TSTW CBS$W~TT_DS_TIM(RS) + DOES THIS UNIT HAVE THE TIMER 
OC 12 OD07 24 6 BNEQ 0$ : YES THEN HANDLE IT 
p09 24 308: ENBINT ; NO MOR E THEN ENABLE THE INTERRUPTS 
'z 52 F4 ODOC 24 3 $: SOBGEQ R2.208 : NO THEN GO ON 
8ED0 DOF 2429 40$ POPL R : RESTORE TIMER THREAD 
FFC? Dt 4 o- BRW 10$ 
D1 ‘ ¢ i : DECREMENT/FIRE TIMER REQUESTS 
| « 20 D1S 5434 $0$:  MOVB — #MODENSC _TIMER,R1 7SET TRANSITION TYPE 
0128 ¢5 2 18 2435 DECW B$W_TT~DS_TIM(RS) COUN E 
EB : DIC 24 6 BNEQ $ :NOT TIME YET 
FDD1 CF Bf ODIE 24 DECW TT$W_REFCNT 
ig 3 D 4 8 PUSHR #*M<R2,R3,R4> : SAVE SOME REGISTERS 
FEI D 4 BSBW TRANS Sf ION TINVOKE TRANSITION ROUTINE 
1¢ BA 0D27 2440 POPR #*M< R4> 
1F AG 6B? «OD29 2441 DECW CRBSB. it *FTRREF.C(R4) > DECREMENT THE REF COUNT 
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30$ ; CONTINUE 
RE-ENABLE pore IF 
40$ NO MORE TIMERS ON THIS 
ceutag ee AND MOVE "0 THE NEXT 


TO SEE IF WE ARE TO CANCEL THE TIMER OR RE-ENABLE IT 


POPR  - #*M<RS> 
DSBINT #31 TERLOCK 
BBC #TIMCTRLSV_CANCEL, TT$W_TIMCT TRL 768; DONT CANCEL TIMER 
Bicw «—ACTINCTRL $m ACTIVE! TIMCT TRLSM_CANCEL>= 

:RESET CANCEL *+TIMER ACTIVE BITS 
MOVAL GEXESAL TOENOREPT, RS ; Point R5 to no-repeat TOE 

; thus ending timer thread. 


BNEQ 
ENBINT 
BRB 


Bete Ge Ge 


ENBINT 
RSB 
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S OF LIST HEAD 
§1 HEAD 


B THREAD 


B ADDRESS 
IF NOT END, LOOK AGAIN 


YES 
; INVOKE ANY PORT SPECIFIC SETUP 


; GET CR 

; ADDRES 

; GET CR 

; CRB ON LIST 

; POINT TO NEXT 
; LINK AT LI 


PS 


CRB(RS) .R4 
IALUP,R4 
_TT_MODEM(R4) 


BSL 
5 

BSC 
»R2 

) 

) 

) 
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$L 
2 
R 
) 
TTYS$SET_MODEM 


R 

L 
UCB ADDRRESS 
DESTROYED 


Veen eocodcm 


E 
E 
E 
CHECK IF CRB NEEDS INSERTION ON MODEM TIMER GUEUE 


RO-R4 
ODEMSLINK_CRB: 


*++ 
; MODEMSLINK_CRB 
: FUNCTIONAL DESCRIPTION: 
UTINE 
NG MO 
AT TH 
RANSI 
RS = 
$ OUTPUTS: 
BSBw 
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; ~sbttl MODEM STATE TABLES 
; MODEM CONTROL STATE TABLES 
; FUNCTIONAL DESCRIPTION: 


THIS TABLE CONTAINS Ad ENTRIES. 
A MODEM lt starts EACH STATE ENTR 
MASK TO BE 


; NTRY, AN IN 
; STATE ENTRY END AN OPTIONAL ACTION ROU 


Zz 
oO 
o- 
me 
z5 
=—-— 
m 


S 


TATE CORRESPONDS Mi 

STS OF A_MODEM SIGNA 

R VALUE TO BE STARTED ON 
ELEMENTS. ON ANY 

a DECLARED, EACH 

Hig! rd TRANSITION ELEMENT 


LS TH 
R_TRANSITION ELEMENT TYPES 
STATE IF THE APPROPRIATE 


ocvvcvvvcvVvVvVv9c°°°000"00"00°9—"9 
“Mm 


MODEM STATE MACRO DEFINITIONS 


emacro state name,onmask=0,of fmask=0,timer,routine 


=] 
re) 
3 
® 


onmask 
— of fmask 

nb timer 
<timer*2> 
se 


i nb routine 
-word routine-state_init 
i aay | 


-endm state 


-macro tran type, nstate,onmask=0,of fmask=0 
if idn type,end 

“byte modem : _tran_ end 
-if_false 

«byte modem$c_tran = type’ 60 
«word nstate-State_in 

ebyte offmas 

ebyte  onmask 


.endm tran 
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TTYSUB - Terminal driver 
v04=001 MODEM STATE TABLES -SEP=1 TTDRVR. SRCITTYSUB.MAR; 2 vO 
STATE_INIT: 
: LINE NOT UNDER MODEM CONTROL 
; STATE OFF 
TRAN END 


: INITIAL MODEM STATE 
STATE IDLE, OF FMASK=<TTSM_DS_DIR!TTSM_DS_RTS>, TIMER=2 


TRAN DIALTYPE,ONMASK=02,NSTATE=RINGOAIT 
TRAN  TIME,NSTATE=WAIT 
TRAN — END 


; WAIT FOR RING PRIOR TO SETTING DTR 
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STATE RINGWAIT 
TRAN DATASET ,ONMASK=<TTS$M_DS_RING> ,NSTATE=INIT2 
TRAN END 


WAIT FOR DTR AND RTS 
(IF DZ-11 GO DO SUBSET SUPPORT) 


STATE WAIT, ONMASK=<TT$M_DS_DTR! TTSM_DS_RTS> 
TRAN 0211.NSTATE=DZWAIT 
TRAN DATASET ,ONMASK=TTSM_DS_DSR,NSTATE=INIT1 
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D TRAN 
ODAF 
ODAF : 
ODAF  DZ-11 SUBSET SUPPORT 
DAF * WAIT FOR CARRIER OR RING 
ODAF STATE DZWAIT 
ODB5 TRAN DATASET, ONMASK=<TTSM_DS_CARRIER> ,NSTATE=TRANSMI TO 
DB TRAN DATASET ,ONMASK=<TTSM_DS_RING> .NSTATE=INIT2 
> DELAY 
: STATE INIT1,TIMER=1 
TRAN TIME,NSTATE=INIT2 
TRAN END 
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START TIMER AND WAIT FOR CTS AND CARRIER 
IF TIMER EXPIRES, SHUTDOWN LINE 


STATE INIT2,ONMASK=<TTSM_DS_DTR!TTSM_DS_RTS>, TIMER=30 
TRAN TIME, NSTATE=SHUTDOQN 
TRAN DATASET, ONMASK=<TTSM_DS_CTS! TTSM_DS_CARRIER! TTSM_DS_DSR>,- 
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v04-00 | MODEM STATE TABLES mets 7 96:19:13 LTTORVR. SREITTYSUB MAR: 2 ° (58) 
DDB 26 NSTATE=TRANSMITO 
DE TRAN — END 
bE 
DE 3 ; TRANSMITO STATE (SIGNAL CONNECT AND ALLOW TIME TO ASSIGN CHANNELS) 
DE2 26 STATE TRANSMITO,ROUTINE=LOGIN, TIMER=30 
DES 26 TRAN DATASET, OF FMASK=TTS$M_DS_DSR,NSTATE=SHUTDOWN 
DEE 26 TRAN DATASET, OF FMASK=TT$M_DS_ CARRIER, NSTATE=TRANSMIT1 
DF4 26 TRAN ‘TIME, NSTATE=TRANSMIT 
DF 6 TRAN — END 
DF é : NORMAL TRANSMIT STATE 
FB 26 STATE TRANSMIT,ROUTINE=VERIFY ; ROUTINE VERIFY WILL SHUTDOWN IF REFC=0 
0 6 TRAN DATASET, OF FMASK=TT$M_DS_DSR,NSTATE=SHUTDOWN 
6 TRAN DATASET, OF FMASK=TTS$M_DS_ CARRIER, NSTATE=TRANSMIT1 
0D 26 TRAN DATASET, OF FMASK=TT$M_DS_CTS,NSTATE=CTSLOW 
6 TRAN _— END 
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STATE TRANSMIT1,TIMER=2,ROUTINE=CTSHIGH 
TRAN  DIALTYPE,ONMASK=01 ,NSTATE=SHUTDOWN 

TRAN _—‘ TIME, NSTATE=SHUTDOWN 

TRAN DATASET, OF FMASK=TTSM_DS_DSR,NSTATE=SHUTDOWN 

TRAN DATASET ,ONMASK=<TTSM_DS_CARRIER!TTSM_DS_CTS>,NSTATE=TRANSMIT 


; DELAY PRIOR TO COMPLETE SHUTDOWN 


STATE SHUTDOWN, TIMER=1,OF FMASK=TT$M_DS_DTR,ROUTINE=LOGOUT 
TRAN TIME .NSTATE=SHUT{ 


COMPLETE SHUTDOWN 
AND THEN REINIT 


STATE SHUT1,TIMER=2 

TRAN NOMODEM,NSTATE=OFF 

TRAN  TIME,NSTATE=IDLE 

TRAN DATASET OF FMASK=TTSM_DS_DSR.NSTATE=IDLE 
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CTSLOW 
STOP SENDING DATA AND WAIT FOR CTS TO GO HIGH 


STATE CTSLOW,ROUTINE=LOSTCTS 
TRAN DATASET ONMASK=TTSM_DS_CTS,NSTATE=TRANSMIT 
DATASET. OF FMASK=TTSM_DS_DSR,NSTATE=SHUTDOWN 
TRAN DATASET OF FRASK=TTSM_DS_CARRIER.NSTATE=TRANSMIT1 
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R3,R4 DESTROYED 
RO,R1,R2 ARE PRESERVED 
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ED eHtetblnth te Rae ienmee WYSE OCEPCISR BRITE YSIS AR%ece PO 
"SETTLE FIVSCCASS DISCONNECT = CLASS SERVICE TO StoMat ANGUS CONDITION 
" CLASS _MODEM_DIS 
: FUNCTION: 
: WILL FORCE MODEM SIGNALS TO HANGUP THE LINE AND SIGNAL HANGUP STATUS 
INPUTS: 
3 RS = UCB ADDRESS 
: OUTPUTS: 
: 


FUN OODNAUN EW OODNOUNS WN OUOONOUS Nc 
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ASS_MODEM_DIS:: : INITIATE MODEM DISCONNECT 
07 He PUSAR  #*M<R 
51 01 p MOVL AMODEREE, ngnotown, R1 : SIGNAL RESET 
FC6B «30 0 BSBW  —« TRANSITI : INVOKE MODEM TRANSITION ROUTINE 
07 ~+~BA 0 POPR #*M<RO, is NR2> 
05 RSB ; RESTORE THE REGISTERS AND RETURN 
0 ; GENERALIZED CLASS ROUTINE TO SIGNAL HANGUP STATUS 
0 TTYSCLASS DISCONNECT 
07 0 POSHR H<RO,R1.R2> 
54 00cO CS D MOVE” UCBs. i COGUCB(RS) ,R4 : GET THE LOGICAL UCB TO CHECK 
SC AG) OBS COO TSTW UCBs “REFC(R4) ; THE REFC 
05 12 0 BNEQ : IF CHANNELS THEN AST s TO FIRE OR 
50 D4 0 745 CLRL RO 3 ALWAYS INDICATE HANGUP IF 
FB54 30 0 746 BSBW  TTYSDISCONNECT : NO CHANNELS THEN NONE OF THE ABOFE 
FFAS 30 0 747 5$: BSBW  LOGOU t AND QUEUE FORK TO SIGNAL HANGUP ST 
07 +BA 0 748 POPR #*M<RO,R1,R2> 
05 749 RSB 
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-SEP-1 
-SBTTL End of module 
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: End of Terminal Class Driver 
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TTYSUB - Terminal driver miscellaneous subrouti a mei ae 96:16:13 YT TORVR. SREITTYSUB MAR: 2 (53) vO 
enene ne 1O$V_DSABLMBX : A 
SESS SARE TRAE = $iRe 
ACBSL-KAST ° BS IOCSCLONE _UCB Sesceeen.) aa: ae 
ACTION EXIT ROS LOCSINITIRTE A 
ATTENTION 4 0 IPL$_QUEUEAST : 
CANSC_DASSGN 1R hag Ht 
CANCEC_AST R IPL$“TIMER . 
CANCEL _DETACH ; R IRPSC_MEDIA . c 
CANCEL ~DON FR IRPS$L-PID . 
CANCEL "MODEM 7R IRPSL-SVAPTE . 
CANCEL RESET 9 RG IRPSM_FUNC “ 
CLASS_MODEM_DIS SSF fh IRP$V~BUF IO ~ t 
‘eee = Hoe Heath ssi 
COMSDELATTNAST weeseer gy) Sa IRPSW~FUNC = Boanshsa 
COMSDRVDEALMEM erred IRPSW"STS OOOOTES ROO 
COMSFLUSHAT TNS cone al 2 LINKFORK +14 > A 
COMSFLUSHCTRLS pueseeen aE LOGIN OO00EBB RCO 
CORSPOST = 0000001F LOGOUT 00000696 R OB 
CRBSB-TI“TYPE “ iti NODE $8 ST_ONMASK = 09090000 
CRBSL-INTD ~ Goonodee MODEMSB~TRAN_OF FMASK = 90000004 
CRBSL TT _MODEM QOO00EAS Rs 2 MODEMSB~ TRAN” ONMASK = 00000003 
CTSHIGH DOOOOESS 08 RODE NS. DATASET = $0000000 
DATASET So000BFD ROS MODEMSC~ = Boposoe! 
pevantagt 4" = Sa040808 mopensefcphra = 20000006 
DEVSACRED = 9000 106 MODENSC TRAN. DATA s Baantane 
pest Souagess $2 RengectAAcpeAT = 998804 
DISCONNECT gogeeas Ff DENSC-TRAN-END ; 200980 
ahaa tar BSssgreg Re ROGER Cer = 99000008 
DTS 021) = 20000008 MODEMSC-TRAN-TIME "Rete ws ‘ 
DYNSC_TQE me 4444 14 MODEMSLINK_CRB = hoot bE 
DYNSC—TYPAHD OOBDBR 0 MODEMSW_ST—ROUTINE = Ronng8 
211 90 DAF R : MODEMSW_ST-TIMER . 00 
D2WAIT Q0000B8E R 0 RoveR TIER a90c$ 

ONONPAGED ete tae TRMHANGUP = 00000006 
EXESAL. TOENOREPT a 2 MSCS“ TRRUNSOLIC . G00} R 
EXESFORK teeneeee Xx NEW STATE OBF3 R 
EXESGL_ABSTIM eeereaee x NEXT TRAN 3 R 
EXESGGSYSTINE ee NOMODEM DOOOReS 
EXE SSNDEVASG 50000000 x OPASUCEO, 3 90000086 
FORKEXIT 5 63 PORTFORK 2 p . 
GE TAHD 1 PORT_ABORT . 2 
IDBS$L_UCBLST ¢ PORT-DISCONNECT . 
IDBSW_UNITS oo PORT"DS_ SET : r 
Bt An ee = 9388 
init) ote PORT=RESUME . : 
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Symbol table 
SET 


PORT 
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vee iW PARITY 


SL_CR 
UCBSL pee 


UCB Bit wr 
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UCBSL-TT-MULTI 
UCBSL~TT~ 
UCBSL-TT"R 
UCBSL~TT-RTIMOU 


U LINK 
UCBSL_TT_W UFLINK 
UCBS$L_ TT" WRTBUF 


UCBSM_BS 
UCBSM_ Pate reuce 
UCBSM_INT 
UCBSM_ JOB 
UCBSA” ONL INE 
UCBSM_ POWER 
UCBSM_TIM 


UCB$M~TT_HANGUP 
UCBSM~T7~LEN 


UCBSV~TT -DISPARERR 
UCOSV~TT-NOTIF 
UcBsv-1T~ PARTY 
UCBSV~TT~TIMO 
UCB$V~TT~USERF RAME 
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goemomommscneenroewa + 


! Psect synopsis ! 


poet oeewnenmsn neces y% 


PSECT name Allocation PSECT No. Attributes 

, 8 ~ 0888008 ( -)» 00 ¢ 9.3 NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ ( ) 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$115_DRIVER OOOOEEB ( 3819.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC QUAD 


Phase Page faults CPU Time Elapsed Time 
Initialization 99 8:6 :00.0 00:00: ¢-47 
Command processing 137 0:00:00.4 0:00:03.30 
Pass 813 0:00:25.1 0:01:31.40 
Symbol table sort 0 ate 3.35 te eH 
Pass 2 412 00:00:06.29 bas 94 
Symbol table output 1 8880; 0.25 0:00:01.07 
Psect synopsis output 0 00:00:00. 0:00:00.02 
Cross-reference output 0 es Sa a 8:99:99 -08 
Assembler run totals 1394 00:00:35.5 0:02:13.79 


The working set Limit was 2700 pages. ; 

212887 bytes_(416 pages) of virtual memory were used to buffer he intermediate code. 

There were 170 pages of symbol table space allocated to hold 3037 non-local and 147 local symbols. 
754 source Lines were read in Pass 1, produc ing 26 object records in Pass 2. 

65 pages of virtual memory were used to define 62 macros. 
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: 
$ewwecewewoeceeccececoccccn + 


Macro Library name Macros defined 
“$52 3SDUAZE: FSS 08431 18.8: 28 
$255$DUA28: CSYSLIBISTARLET.MLB;2 11 
TOTALS (all Libraries) 39 


3384 GETS were required to define 39 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$: TTYSUB/OBJ=0BJ$: TTYSUB MSRC$: TTYSUB/UPDATE=(ENHS$: TTYSUB) +EXECMLS$/LIB 
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